Visual Basic.NET - contador en vb 2010

 
Vista:
sin imagen de perfil

contador en vb 2010

Publicado por marlova (4 intervenciones) el 14/04/2014 03:35:14
Saludos necesito colocar un contador en el Id...este es el codigo que estoy usando pero no me funciona:

Dim cont As Integer
cont = cont + 1
Txtid.Text = cont


Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

contador en vb 2010

Publicado por omar (128 intervenciones) el 14/04/2014 04:02:58
Esta bien lo que has hecho solo que debes declararlo fuera del procedimiento del botón

dim contador as integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

cont = cont + 1
Txtid.Text = cont

end sub

si deseas mas ayuda en tu proyecto estamos en contacto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

contador en vb 2010

Publicado por marlova (4 intervenciones) el 14/04/2014 05:15:41
Gracias...me funciono...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

contador en vb 2010

Publicado por marlova (4 intervenciones) el 14/04/2014 14:47:58
Saludos...pense que me habia funcionado pero cuando cierro el formulario y quiero añadir otro vuelve a comenzar en cero y me tira un error de duplicacion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

contador en vb 2010

Publicado por omar (128 intervenciones) el 14/04/2014 15:15:25
dim contador as integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

cont = cont + 1
Txtid.Text = cont

end sub


Ese código solo es cuando tienes abierto el form
si deseas se podría checar el id de la base de datos según tu tabla

ejemplo

traes el id

Dim ds As New DataSet
Dim s As String = ""
ds = miclase.traedataset("Select max(Id) from factura") ''Verificamos el id mayor que este en la base
Dim eid As Integer
If ds.Tables(0).Rows.Count > 0 Then
If IsDBNull(ds.Tables(0).Rows(0).Item(0)) Then '' si no se ha registrado nada le agregamos que sea 1
eid = 1
Else
eid = ds.Tables(0).Rows(0).Item(0) '' si ya tiene registros sumamos uno al id
eid += 1
End If

Else
End If


cualquier duda envía un email
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar