Problemas con sstab y datagrid
Hola, tengo un gran problema con un datagrid insertado en un sstab.
El problema es que en el evento tab del sstab, realizo una consulta sql y actualiza los datos en el datagrid, y si lo hace correctamente pero al momento de hacer clik sobre alguna fila del datagrid, todos las filas desaparecen y el datagrid se queda vacío!!!
No sé porque pasa esto, espero que me puedan ayudar.Gracias!!!
El problema es que en el evento tab del sstab, realizo una consulta sql y actualiza los datos en el datagrid, y si lo hace correctamente pero al momento de hacer clik sobre alguna fila del datagrid, todos las filas desaparecen y el datagrid se queda vacío!!!
No sé porque pasa esto, espero que me puedan ayudar.Gracias!!!
Hola, este es el código en el evento click del sstab:
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 1 Then 'si se elige la pestaña 1
rsBusqueda.CursorLocation = adUseClient
Set cmdBusqueda.ActiveConnection = cnBusqueda
cmdBusqueda.CommandText = "select * from reac_exi where control='x' "
cmdBusqueda.CommandType = adCmdText
rsBusqueda.Open cmdBusqueda
If Not rsBusqueda.EOF = True Then
Set DataGrid1.DataSource = rsBusqueda
DataGrid1.Refresh
End If
rsBusqueda.Close
End If
If SSTab1.Tab = 2 Then
rsBusqueda.CursorLocation = adUseClient
Set cmdBusqueda.ActiveConnection = cnBusqueda
cmdBusqueda.CommandText = "select * from reac_exi where control=''"
cmdBusqueda.CommandType = adCmdText
rsBusqueda.Open cmdBusqueda
If Not rsBusqueda.EOF = True Then
Set DataGrid2.DataSource = rsBusqueda
DataGrid2.Refresh
End If
rsBusqueda.Close
End If
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 1 Then 'si se elige la pestaña 1
rsBusqueda.CursorLocation = adUseClient
Set cmdBusqueda.ActiveConnection = cnBusqueda
cmdBusqueda.CommandText = "select * from reac_exi where control='x' "
cmdBusqueda.CommandType = adCmdText
rsBusqueda.Open cmdBusqueda
If Not rsBusqueda.EOF = True Then
Set DataGrid1.DataSource = rsBusqueda
DataGrid1.Refresh
End If
rsBusqueda.Close
End If
If SSTab1.Tab = 2 Then
rsBusqueda.CursorLocation = adUseClient
Set cmdBusqueda.ActiveConnection = cnBusqueda
cmdBusqueda.CommandText = "select * from reac_exi where control=''"
cmdBusqueda.CommandType = adCmdText
rsBusqueda.Open cmdBusqueda
If Not rsBusqueda.EOF = True Then
Set DataGrid2.DataSource = rsBusqueda
DataGrid2.Refresh
End If
rsBusqueda.Close
End If
End Sub