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.
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