Título del mensaje: Generar codigo en mysql y Vb.net 2008

Bueno amigos aqui con una inquietud resulta que quiero autogenerar codigo con por ejempo "Esp-0001" y luego "Esp-0002" y etc
para este fin lo que hice es capturar el ultimo registro mostrado de mi grid y luego extraer desde la posicion 5 hasta 8 con l cula capturo este 0001 y luego lo sumo pero solo me devuelve 2 ahora trate de rellenarl con ceros a la izquierda y lo que paso fue es supongamos en el caso de que sea Esp-0012 queda asi Esp-00012 lo que quiero es que solo le agrege lo que le falte nomas por ejemplo Esp-0002 solo es 3 ceros o en este caso Esp-0012 dos ceros o en este caso Esp-0112 solo un cero alguna idea por favor gracia s de ante mano

For numero As Integer = 1 To grvinstrumento.RowCount - 1
codigo = Me.grvinstrumento.Rows(numero).Cells("codigo").Value
Next
cod = Vb.Mid(codigo, 5,
instru = Val(cod) + 1
Dim s, AT As String
s = frm_man_cona.txtcod.Text.Trim.PadLeft(3, "0")
AT = "Esp-" + s
frm_man_insta.txtcod.Text = AT + Str(instru).Trim

Título del mensaje: Re: Generar codigo en mysql y Vb.net 2008

te mando este codigo, es mas o menos tu idea solo q paso a paso:

Código:

Dim lst As String         lst = gvData.Rows(gvData.Rows.Count - 1).Cells(1).Text         Dim cod As String         cod = lst.Substring(lst.IndexOf("-") + 1)         Dim valor As Integer = CInt(cod)         valor += 1         Dim newCod As String         newCod = "Esp-" & Right("0000" & CStr(valor), 4)         txtNewCode.Text = newCod

solo tendrias q cambiar el nombre de grid y el textbox en donde pondrias el codigo nuevo

saludos

Título del mensaje: Re: Generar codigo en mysql y Vb.net 2008

gracias por la ayuda amigo

Título del mensaje: Re: Generar codigo en mysql y Vb.net 2008

espero sea lo q querias hacer!!!!

de nada!!!

saludos