那为兄弟，可以帮我看看这个循环，语法没错，效果没达到，，，先谢拉

[internetzap]

那为兄弟，可以帮我看看这个循环，语法没错，效果没达到，，，先谢拉，
这个循环怎么没达到效果啊，
我是想，将各个部门循环加到一个表中，，如果我的数组中有1，2，3他执行后，是先加1，3，我在点以下，后才加2，，如果以前有，的话，就不加，继续加下一个，
不知道是怎么回事啊，我想一次就可以都加进去，，
可不可以帮我看看，，
f_stoarray(ls_deptids,',',ls_array_d) //得到部门数组
i = 1

m = upperbound(ls_array_d)
lable:
do while i <= integer(m)

ls_deptid = ls_array_d[i]

// 判断当前部门的数据是否已经在 dw_mains 中存在，如果存在则下一个，否则增加

ll_find = dw_mains.Find("deptid = '"+ ls_deptid +"'" , 1 , dw_mains.rowcount())
// messagebox("test",ll_find)
if ll_find <= 0 then
ls_deptid = ls_array_d[i]
i++
select warehouseid into :ls_warehouseid from plulocation
where comid =:ls_comid and deptid =: ls_deptid using sqlca;

if ls_warehouseid = "" then ls_warehouseid = ls_deptid

ls_insertrow = dw_mains.insertrow(0)
dw_mains.scrolltorow(ls_insertrow)

dw_mains.setitem(ls_insertrow , "comid" , ls_comid)
dw_mains.setitem(ls_insertrow , "maker" , ls_maker)
dw_mains.setitem(ls_insertrow , "price" , ls_price)
dw_mains.setitem(ls_insertrow , "makedate" , ls_makedate)
dw_mains.setitem(ls_insertrow , "saleprice" , ls_saleprice)
dw_mains.setitem(ls_insertrow , "warehouseid",ls_warehouseid)
dw_mains.setitem(ls_insertrow , "deptid",ls_deptid)

else

goto lable
end if
i++
loop

[tchatcha]

太乱看不明白

[yl_yz]

把第一个i++去掉。

[andyzq]

同意，把第一个i++去掉

[internetzap6]

建议不用DO WHILE ,,
fo i<= 1 to m

ls_deptid = ls_array_d[i]


ll_find = dw_mains.Find("deptid = '"+ ls_deptid +"'" , 1 , dw_mains.rowcount())
// messagebox("test",ll_find)
if ll_find <= 0 then
ls_deptid = ls_array_d[i]

select warehouseid into :ls_warehouseid from plulocation
where comid =:ls_comid and deptid =: ls_deptid using sqlca;

if ls_warehouseid = "" then ls_warehouseid = ls_deptid

ls_insertrow = dw_mains.insertrow(0)
dw_mains.scrolltorow(ls_insertrow)

dw_mains.setitem(ls_insertrow , "comid" , ls_comid)
dw_mains.setitem(ls_insertrow , "maker" , ls_maker)
dw_mains.setitem(ls_insertrow , "price" , ls_price)
dw_mains.setitem(ls_insertrow , "makedate" , ls_makedate)
dw_mains.setitem(ls_insertrow , "saleprice" , ls_saleprice)
dw_mains.setitem(ls_insertrow , "warehouseid",ls_warehouseid)
dw_mains.setitem(ls_insertrow , "deptid",ls_deptid)

else

RETURN
end if
NEXT