jorge
04 de Febrero del 2004

public b,i,c as integer
Private Sub DataCombo1_Click(Area As Integer)
b = Me.DataGrid1.ApproxCount
i = Me.DataGrid1.Bookmark
for c=i+1 to b
idlinea = Adodc3.Recordset.Fields("Idlinea").Value
idlinea = idlinea - 1
Me.Adodc3.Recordset.Fields("Idlinea") = idlinea
Adodc3.Recordset.MoveNext
Next c

ME HAN DIXO KE TGO KE UTILIZAR EL EVENTO AFTER DELETE PORQUE ACIENDO ESTO NO ME DEJA REDIMENSIONAR EL IDENTIFICADOR DE LINEA ME DICE KE ESTOY INTENTADO ELIMINAR UN REGISTRO KE YA ESTA SELECIONADO PARA ELIMINAR O KE YA ESTA ELIMINADO.
PORFAVOR ALGUIEN ME PUEDE AYUDAR.GRACIAAASSS!!!