Para TecniCam y Felipe-Tema DBGrid
Publicado por Grisel (1 intervención) el 29/09/2000 00:00:00
En primer lugar quiero agradecerles su valiosa ayuda y, a la vez, les comento que luego de pasar la mañana investigando solucioné el problema de la siguiente forma, creo que debe ser otra alternativa para llegar al mismo resultado. El primer ejemplo utiliza un dbgrid enlazado y el segundo, uno en modo unbound, ahí va y espero que también a uds. les sirva. Saludos desde Argentina.
Private Sub cmdborrar_Click()
DBGrid1.SelBookmarks.Add DBGrid1.RowBookmark(DBGrid1.Row)
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
Private Sub cmdborrar_Click()
DBGrid1.SelBookmarks.Add DBGrid1.RowBookmark(DBGrid1.Row)
Dim iRow As Integer
iRow = DBGrid1.RowBookmark(DBGrid1.Row)
vector1(0, iRow) = " "
vector1(1, iRow) = " "
vector1(2, iRow) = 0
.
.
.
vector1(n, iRow) = 0
mTotalRows = mTotalRows - 1
DBGrid1Refresh
Private Sub cmdborrar_Click()
DBGrid1.SelBookmarks.Add DBGrid1.RowBookmark(DBGrid1.Row)
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
Private Sub cmdborrar_Click()
DBGrid1.SelBookmarks.Add DBGrid1.RowBookmark(DBGrid1.Row)
Dim iRow As Integer
iRow = DBGrid1.RowBookmark(DBGrid1.Row)
vector1(0, iRow) = " "
vector1(1, iRow) = " "
vector1(2, iRow) = 0
.
.
.
vector1(n, iRow) = 0
mTotalRows = mTotalRows - 1
DBGrid1Refresh
Valora esta pregunta


0