Anónimo
Como concatenar una cadena y un entero
Aquí vamos otra vez con la pregunta. Tengo un varchar de un usuario y hago un query que regresa el ultimo varchar de los miembros que seria "A00009". Esto lo hago con esto
Me.lblNumMembr.Text = dt.Rows.Item(dt.Rows.Count - 1).Item(0)
Que regresa A00009. Después quiero ver si me pueden ayudar a crear un método (enseñándome el código). A como agarrar el A00009 como parámetro y incrementandole una posición cada vez que haga un nuevo miembro. Por ejemplo en este caso regresaría A00010. Después en la próxima regresaría A00011 etc. Esto es en VB2008.
Me.lblNumMembr.Text = dt.Rows.Item(dt.Rows.Count - 1).Item(0)
Que regresa A00009. Después quiero ver si me pueden ayudar a crear un método (enseñándome el código). A como agarrar el A00009 como parámetro y incrementandole una posición cada vez que haga un nuevo miembro. Por ejemplo en este caso regresaría A00010. Después en la próxima regresaría A00011 etc. Esto es en VB2008.
1 respuesta
Respuesta de carloscharly
'Asumiento que te regresa A00009
Dim NumCod,Can as integer
Dim ValorDevuelto,NuevoCodigo as string
ValorDevuelto=dt.Rows.Item(dt.Rows.Count - 1).Item(0) 'ValorDevuelto="A00009"
Can=Len(ValorDevuelto) ' can=6
NumCod=Microsoft.VisualBasic.Right(ValorDevuelto,Can - 1) + 1' NumCod=10
'Asta ahi obtubimos el 10, ahora Dar Formato a la candena, asi quedaria A00010
NuevoCodigo="A" & Microsoft.VisualBasic.Right("0000" & Cstr(NumCod),5)
'//Cualquier duda solo pregunta
Dim NumCod,Can as integer
Dim ValorDevuelto,NuevoCodigo as string
ValorDevuelto=dt.Rows.Item(dt.Rows.Count - 1).Item(0) 'ValorDevuelto="A00009"
Can=Len(ValorDevuelto) ' can=6
NumCod=Microsoft.VisualBasic.Right(ValorDevuelto,Can - 1) + 1' NumCod=10
'Asta ahi obtubimos el 10, ahora Dar Formato a la candena, asi quedaria A00010
NuevoCodigo="A" & Microsoft.VisualBasic.Right("0000" & Cstr(NumCod),5)
'//Cualquier duda solo pregunta
Dim NumCod,Can as integer
Dim ValorDevuelto,NuevoCodigo as string //Aqui ValorDevuelto es un string
ValorDevuelto=dt.Rows.Item(dt.Rows.Count - 1).Item(0) 'ValorDevuelto="A00009"//Aqui ValorDevuelto se declara como DataTable? No produce un error?
Dim ValorDevuelto,NuevoCodigo as string //Aqui ValorDevuelto es un string
ValorDevuelto=dt.Rows.Item(dt.Rows.Count - 1).Item(0) 'ValorDevuelto="A00009"//Aqui ValorDevuelto se declara como DataTable? No produce un error?
Bueno eso no lo se, tu dijiste que si te salia así, y yo asumí directamente el valor A00009, depende de tus tipos de dato y esas cosas, para que no te salga error en el DT, ahora mira estoy por irme agrégame [email protected] apra aclarar tus dudas, pero finaliza la pregunta OK