Problema con cadena
Hola ..tengo este ciclo y quiero formar el siguiente string '0001','0002','0003'
pero creo ke algo estoy haciendo mal por ke me sale asi ''',0001',0002',0003
aki te dejo mi codigo para ke lo chekes
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 ke algo estoy haciendo mal por ke me sale asi ''',0001',0002',0003
aki te dejo mi codigo para ke lo chekes
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
Respuesta de juanjoxtrem
1
if i = 1 then
ls_dep = dw_list.Object.c_codigo_dep[ 1]
if dw_list.Object.depto[1] = '1' Then ls_cadena = "'"+ls_dep + "'"
For i = 2 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
ls_dep = dw_list.Object.c_codigo_dep[ 1]
if dw_list.Object.depto[1] = '1' Then ls_cadena = "'"+ls_dep + "'"
For i = 2 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
