Utilizo el siguiente codigo, para recuperar una fila de un dataset, a travez de el campo clave:
'busco los datos
Dim MiRow As DataRow
MiRow = objDataSet.Tables("clientes").Rows.Find(BuscaDato)
MsgBox(MiRow.Item("razonsocial"))
Quisiera saber si es posible recuperar a que indice o posicion ocupa la fila encontrada, dentro del dataset. Para asignar dicho indice a la variable"Posicion" y utilizar el siguiente codigo para llenar las cajas de texto, para uqe el usuario las edite.
TXTCodigo.Text = objDataSet.Tables("Clientes").Rows(Posicion).Item("codigo")
TXTRazon.Text = objDataSet.Tables("Clientes").Rows(Posicion).Item("RazonSocial")
TXTDomicilio.Text = objDataSet.Tables("Clientes").Rows(Posicion).Item("domicilio")
De esta manera, no se me romperia la relacion con los botones de navegacion que utilizo para moverme en el dataset y utilizan el siguiente codigo:
Private Sub btnAtrás_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAtrás.Click
'Va hacia atrás.
If Posicion > 0 Then
Posicion -= 1
Llenacajas()
LRegActual.Text = "Registro actual Nº: " & Posicion + 1
'modo edicion
BanderaABM = 2
End If
End Sub
Private Sub Adelante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Adelante.Click
'Va hacia adelante.
If Posicion < objDataSet.Tables("clientes").Rows.Count - 1 And objDataSet.Tables("clientes").Rows.Count <> 0 Then
Posicion += 1
Llenacajas()
LRegActual.Text = "Registro actual Nº: " & Posicion + 1
'modo edicion
BanderaABM = 2
End If
Estoy trabajando en una base de datos Access
Cualquier sugerencia es bienvenida!!!
