Como remplazo

Buenos dias señores Si alguienme pudiera colaborar y me
regala un ejemplo de como recorro un Dataset en NET ya
que VB6 se recorre de la siguiente manera muchas gracias.


Do While Not rs.EOF And encontrado = False
If RTrim(rs.Fields(1)) = LstNumdocafi.Text And _
RTrim(rs.Fields(0)) = Lsttipodocafi.Text Then
encontrado = True
txttipdoc.Text = IIf(IsNull(rs.Fields(0)), "",
RTrim(rs.Fields(0)))
..
..
..
End If
rs.MoveNext
Loop
Exit Sub

.

Hola:

Lo puedes hacer asi...

for each FILA in DS.TABLES("nombre_de_la_tabla").ROWS
con FILA("nombre_de_la_columna") tienes acceso a los
datos...
next

FILA debe ser de tipo datarow

Espero te sirva...
Shao

Buenos dias señores Si alguienme pudiera colaborar y me
regala un ejemplo de como recorro un Dataset en NET ya
que VB6 se recorre de la siguiente manera muchas

Do While Not rs.EOF And encontrado = False
If RTrim(rs.Fields(1)) = LstNumdocafi.Text And _
RTrim(rs.Fields(0)) = Lsttipodocafi.Text Then
encontrado = True
txttipdoc.Text = IIf(IsNull(rs.Fields(0)), "",
RTrim(rs.Fields(0)))
..
..
..
End If
rs.MoveNext
Loop
Exit Sub

.

.