BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: sawit2011 ที่ เมษายน 19, 2012, 16:28:49 PM

หัวข้อ: เขียนโปรแกรม
เริ่มหัวข้อโดย: sawit2011 ที่ เมษายน 19, 2012, 16:28:49 PM

ลูป นี้ อ่ะคับ  มันถูกแค่ ลูป แรก  พอลูป ต่อไป มันเอาค่าของลูปแรก ซำ้ๆๆๆ หมด เลย แก้ยังไงคับ

วานผู้รู้ หน่อยคร้าบๆๆๆ

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;

หัวข้อ: Re: เขียนโปรแกรม
เริ่มหัวข้อโดย: jackkawave ที่ เมษายน 19, 2012, 16:30:35 PM

ขอโทษนะครับ ...ภาษาไทยวิบัติอีกแล้ว

หัวข้อ: Re: เขียนโปรแกรม
เริ่มหัวข้อโดย: sawit2011 ที่ เมษายน 19, 2012, 16:49:40 PM

ขอโทษ ครับ   :D :D

หัวข้อ: Re: เขียนโปรแกรม
เริ่มหัวข้อโดย: huwko ที่ เมษายน 19, 2012, 21:23:35 PM

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
=========================
ลองแบบนี้พี่..
-  ตรง begin ... end

ให้ใส่เครื่องหมาย ;  เพื่อจบกรอบการทำงานนั้นนันนะคับ เช่น


     begin
        a:=i;
        if Report.DataPipeline.bof  then

           a:=a-DBPipeline['qty'] ;
            value:= a;

     end;

ลองดูนะคับผม  .. ไม่แน่ใจแต่น่าจะประมาณนี้ถ้ายังใช้เงื่อนไข if นะคับ..
ผิดถูกขออภัย .. 

หัวข้อ: Re: เขียนโปรแกรม
เริ่มหัวข้อโดย: sawit2011 ที่ เมษายน 20, 2012, 08:20:58 AM

ขอบคุณครับ คุณ huwko   แต่พอใส่ ; หลัง end  แล้ว มัน error  อ่ะคับ คับ หน้า else if ครับ