Tabardillo
21 de Octubre del 2004

Hola! la cuestion es la siguiente, tengo una tabla de clientes donde al entrar a mi pantalla de captura de un nuevo cliente debe aparecer el siguiente numero consecutivo del ultimo registro capturado, osea que si recien el ultimo que cliente que capture fue el cliente 2500, al cargar el formulario debe aparecer que el siguiente cliente que voy a capturar debe ser el cliente 2501, esto claro en el Form1_Load y asi lo puedo adaptar para los folios, espero y puedan ayudarme, lei algo de un dataset.table("clientes").row algo asi, espero no estar meando fuera del hoyo con este seudocodigo. jeje. Bueno espero su respuesta, de antemano Gracias

kaz
21 de Octubre del 2004

Este codigo te devuelve el siguiente cliente

Dim posicion as integer

Dim cliente_siguiente As String

Dim cliente_anterior As String = "2500"

Dim dv As DataView

dv = New DataView(Me.dsClientes.Tables(0))
dv.Sort = "ID_CLIENTE ASC"

posicion = dv.Find(cliente_anterior)

If posicion = Me.dsClientes.Tables(0).Rows.Count - 1 Then
MsgBox("Ultimo cliente")
Else
cliente_siguiente = Me.dsClientes.Tables(0).Rows(posicion + 1)("ID_CLIENTE")
End If