Problema al formar un string o cadena
Hola .. Tengo este ciclo y quiero formar el siguiente string '0001','0002','0003'
Pero creo que algo estoy haciendo mal por que me sale así ''', 0001', 0002', 0003
aquí te dejo mi código para que lo cheques
if i = 1 then
For i = 1 To dw_list.RowCount( )
if dw_list.Object.depto[ i] = '1' Then
ls_dep = dw_list.Object.c_codigo_dep[ i]
ls_cadena = " ' " +ls_cadena+ " ' " +','+ls_dep
end if
next
end if
Pero creo que algo estoy haciendo mal por que me sale así ''', 0001', 0002', 0003
aquí te dejo mi código para que lo cheques
if i = 1 then
For i = 1 To dw_list.RowCount( )
if dw_list.Object.depto[ i] = '1' Then
ls_dep = dw_list.Object.c_codigo_dep[ i]
ls_cadena = " ' " +ls_cadena+ " ' " +','+ls_dep
end if
next
end if
1 Respuesta
Respuesta de carloscharly
1
¿Poco qué trato de entender lo que quieres es completar con ceros un numero el cual es LS_DEP? Es decir ls_dep tiene 1,2,3)
Bueno si es así la parte donde armas ls_cadena debería ser así
ls_cadena = ls_cadena + "'" + right ('000' + ls_dep,4 ) + "',"
Ahora para saber si esta bien estructurado tu for y tu if tendrías que ponerme el resultado de las filas que te devuelte la DW.
Bueno si es así la parte donde armas ls_cadena debería ser así
ls_cadena = ls_cadena + "'" + right ('000' + ls_dep,4 ) + "',"
Ahora para saber si esta bien estructurado tu for y tu if tendrías que ponerme el resultado de las filas que te devuelte la DW.
Puedes finalizar la pregunta por favor.
Manuales VB.
Manuales VB.
