AYUDA MESSAGEBOX
Publicado por Edgar (87 intervenciones) el 26/06/2010 19:07:50
Estimados amigos del foro, por favor solicito su valiosa ayuda,desde ya muchas gracias po su ayuda.
en mi aplicacion recupero varios nombres que ya existen en mi rol de pagos y esos nombres todos los qua aparescan se presenten
en un messagebox, pero me da un error o si lo presento dentro del for se me presentan cada instante
for ll_i=1 to ll_empleado
ls_empleado=lds_fecha_rol.getitemstring(ll_i,"codigop_empl")
las_empleado[ll_i]=ls_empleado
las_nomempl[ll_i]=lds_fecha_rol.getitemstring(ll_i,"compute_1")
ld_fingreso=lds_fecha_rol.getitemdate(ll_i,"fecha_ingreso_empl")
ld_fechas[ll_i]=ld_fingreso
ll_existe=lds_emplrol.find("codigo_empl= '" +ls_empleado + "'",1,lds_emplrol.rowcount())
next
if ll_existe<>0 then
for ll_indice=1 to upperbound(las_nomempl)
las_nomempl[ll_indice]=las_nomempl[ll_indice]+" , "
next
Messagebox("Atención, Existen Empleados en Otro Rol",las_nomempl[ll_i])
end if
en mi aplicacion recupero varios nombres que ya existen en mi rol de pagos y esos nombres todos los qua aparescan se presenten
en un messagebox, pero me da un error o si lo presento dentro del for se me presentan cada instante
for ll_i=1 to ll_empleado
ls_empleado=lds_fecha_rol.getitemstring(ll_i,"codigop_empl")
las_empleado[ll_i]=ls_empleado
las_nomempl[ll_i]=lds_fecha_rol.getitemstring(ll_i,"compute_1")
ld_fingreso=lds_fecha_rol.getitemdate(ll_i,"fecha_ingreso_empl")
ld_fechas[ll_i]=ld_fingreso
ll_existe=lds_emplrol.find("codigo_empl= '" +ls_empleado + "'",1,lds_emplrol.rowcount())
next
if ll_existe<>0 then
for ll_indice=1 to upperbound(las_nomempl)
las_nomempl[ll_indice]=las_nomempl[ll_indice]+" , "
next
Messagebox("Atención, Existen Empleados en Otro Rol",las_nomempl[ll_i])
end if
Valora esta pregunta
0