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