ลูป นี้ อ่ะคับ มันถูกแค่ ลูป แรก พอลูป ต่อไป มันเอาค่าของลูปแรก ซำ้ๆๆๆ หมด เลย แก้ยังไงคับ
วานผู้รู้ หน่อยคร้าบๆๆๆ
if DBPipeline['icode']='1540018' then
begin
a:=i;
if Report.DataPipeline.bof then
a:=a-DBPipeline['qty'] ;
value:= a;
end
else if DBPipeline['icode']='1540014' then
begin
b:=j;
if Report.DataPipeline.bof then
b:=b-DBPipeline['qty'] ;
value:= b;
end
else if DBPipeline['icode']='1000122' then
begin
c:=k;
if Report.DataPipeline.bof then
c:=c-DBPipeline['qty'] ;
value:= c;
end
else if DBPipeline['icode']='1000121' then
begin
d:=l;
if Report.DataPipeline.bof then
begin
d:=d-DBPipeline['qty'] ;
value:= d;
end;
end
else if DBPipeline['icode']='1000223' then
begin
e:=m;
if Report.DataPipeline.bof then
begin
e:=e-DBPipeline['qty'] ;
value:= e;
end;
end
else if DBPipeline['icode']='1000206' then
begin
f:=o;
if Report.DataPipeline.bof then
begin
f:=f-DBPipeline['qty'] ;
value:=f;
end;
end;
หัวข้อ: เขียนโปรแกรม (อ่าน 4027 ครั้ง)