suma si la fecha es diferente

[guillebomtrasmiti]

hola amigos, por favor alguién puede darme una rápida respueta a esto...necesito poner un número en una celda...pero si la fecha cambia debe sumar el número en una unidad...

es decir

numero fecha
1 10/8/2011
1 10/8/2011
2 11/9/2011

ese es el tema...meto el mismo número hasta que la fecha es distinta entonces sumo una cantidad más...hice esto pero nada

Public Sub tas()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE HistoricoT SET ta = +(" & 1 & ") where ta <> Fecha"

adapt.UpdateCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close()

End Sub

[guillebomtrasmiti]

no contetas nadie?=

[guillebomtrasmiti]

lo pregunto de otra manera...tengo esta consulta

Dim contador As New Integer
Dim resultado As New Integer
For i = 0 To DgGenerados.Rows.Count - 1
contador = CInt(DgGenerados.Rows(i).Cells(1).Value)
resultado = contador + 1

com.CommandText = "UPDATE HistoricoTickets SET NTicket = " & resultado & " where NTicket = @FA and Id = @FI+2"

vale sucede que que el datagrid que utilizo para ver los datos tiene 66 filas...vale yo quiero que cada dos filas el número se sume 1 al anterior...lo consigo con esto pero que sucede...que recorre el grid...y le suma una sola vez a la primera fila que cumple la condición y luego no sigue saltándose de dos en dos filas y poniendo la cifra.....¿¿¿¿

[guillebomtrasmiti]

vamos que no pare de hacer lo mismo que ya lo hace bien mientras existan líneas en el grid...por favor alguna ayudita?¿?

[guillebomtrasmiti]

bien he conseguido sumar bien la cantidad pero no me la asigna en la grilla, en la grilla me suma 1 sobre todos los campos...en cambio en el for each RESULTADO va sumando bien la cantidad?¿?

Dim contador As New Integer
Dim resultado As New Integer
For Each row As DataGridViewRow In DgGenerados.Rows
contador = CInt(Val(row.Cells(1).Value) + Val(row.Cells(0).Value))
resultado = contador

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE HistoricoTickets SET NTicket =" & resultado & " Where NTicket = @FA"
'where NTicket = @FA and Id = @FI"
com.Parameters.AddWithValue("@FA", DgGenerados.CurrentRow.Cells(1).Value)
'com.Parameters.AddWithValue("@FI", DgGenerados.CurrentRow.Cells(0).Value)

adapt.UpdateCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close()

Next

sabeis por qué?¿?