Gerardo
25 de Enero del 2005

Hola quiero saber como puedo insertar una linea intermedia entre dos registros en un datagrid como si fuera Excel.
Usando Access como base de datos tengo esto

Sub agrega_reg()

dbgridpersianas.AllowAddNew = True
dbgridpersianas.ReBind
dbgridpersianas.Refresh
Adopersianas.Recordset.AddNew

Adopersianas.Recordset.Fields(1) = Adopersianas.Recordset.RecordCount
Adopersianas.Recordset.Fields(2) = " "
Adopersianas.Recordset.Fields(3) = material
Adopersianas.Recordset.Fields(4) = " "
Adopersianas.Recordset.Fields(5) = " "
Adopersianas.Recordset.Fields(6) = 0
Adopersianas.Recordset.Fields(7) = " "
Adopersianas.Recordset.Fields(8) = 0
Adopersianas.Recordset.Fields(9) = " "
Adopersianas.Recordset.Fields(10) = 0
Adopersianas.Recordset.Fields(11) = 0
Adopersianas.Recordset.Fields(12) = " "
Adopersianas.Recordset.Fields(13) = 0
Adopersianas.Recordset.Fields(14) = wprecio
Adopersianas.Recordset.Fields(15) = 0

dbgridpersianas.AllowAddNew = False

End Sub

mvallejos
25 de Enero del 2005

Gerardo.

El modo en que aparezcan tus registros depende de la cláusula ORDER BY que pongas en la SQL de tu AdoDc Adopersianas.
Lo que puede agregar es alguna instrucción de refresco

Adopersianas.Refresh

o bien

Adopersianas.Recordset.Requery

Saludos