Yolanda
18 de Agosto del 2003

Tengo un datagrid asociado a un adodc, yo quiero añadir en codigo un registro a datagrid, pero cuando la hago,se escriben los datos en los campos pero no se crea una fila nueva y si avanzo el cursor al llegar al final, entonces me desaparece todo el contenido de los campos.


Private Sub BuscarDataGrid()
'Se recorre el datagrid de la tabla analisis
' para buscar las filas seleccionadas, coger el codigo
' y la descripción y meterlas en el otro datagrid
Dim i, j As Integer
Dim intCount As Integer
intCount = dgAnalisis.SelBookmarks.Count
For i = 0 To intCount

j = grdDataGrid.ApproxCount
If j >= 0 Then
grdDataGrid.Row = grdDataGrid.ApproxCount - 1
End If
grdDataGrid.Columns.Item(0).Value = dgAnalisis.Columns(0).CellValue(dgAnalisis.SelBookmarks(i))
grdDataGrid.Columns.Item(1).Value = txtFields(0).Text
grdDataGrid.Columns.Item(2).Value = dgAnalisis.Columns(1).CellValue(dgAnalisis.SelBookmarks(i))

grdDataGrid.Refresh

datPrimaryRS.Refresh
i = i + 1

Next i



End Sub


Este codigo se llama al pulsar un boton una vez que hemos seleccionado las filas de otro datagrid

Yolanda
18 de Agosto del 2003

Se me olvidaba, al datagrid le tengo puesto que permita añadir nuevos registros y al adodc en EOFAction=adDoAddNew