hur.cn - 华软网

 热门搜索

为什么这里L_temp和l_temp1取不数据呀 我用messagebox读它的值但为什么返回的是0呀

  作者:未知    来源:网络    更新时间:2019/1/25
string partval,palletval,palletno,partnum
decimal i,j,rowno,palletqty,rownum,l_temp,l_sum,l_temp1,lotqty,dw2row


partnum = sle_1.text
palletqty = dec(sle_2.text)
lotqty = dec(sle_3.text)
rownum = dw_1.rowcount()

if palletqty <> rownum then
messagebox('Err','The pallet qalletqty is not right!')
return
end if

for i = 1 to palletqty 
palletno = dw_1.getitemstring(i,3)
if dw_2.retrieve(palletno) > 0 then
  Select isnull(count(*),0) into :l_temp from tdellpack where pallet_no = :palletno;
     if l_temp = 0 then
        Select isnull(count(*),0) into :l_temp1 from tpack where pallet_no = :palletno;
     end if
  l_sum =l_sum + l_temp + l_temp1
  l_temp = 0 
  l_temp1 = 0 
   end if

for j = 1 to dw_2.rowcount()
if dw_2.getitemstring(j,1) <> partnum then
     messagebox('Err','There is a wrong pallet(' + palletno + ')!')
  return
   end if
next

//for i = 1 to palletqty
// dw_2.retrieve(palletno)
// if dw_2.rowcount() <> 18  then
// messagebox('err','Tish pallet no('  + palletno +')QTY is error!')
// return
// end if
//next

// select partno
// into :partval
// from Tdellpack
// where pallet_no = :palletno;
//
//
// if partnum <> partval then
// messagebox('Err','The P/N is not right!')
// return
// end if
next
if lotqty <> l_sum then
Messagebox('Warnning:','input lot QTY is not amount LOT QTY!')
return
end if
messagebox('OK','Confirm is completed!')
cb_5.enabled=true
 

------华软网友回答------
算法有问题把  好好检查咯
------华软网友回复------
大哥,说清楚的吧,
我是刚学的,还不太明白呀!
------华软网友回复------
UP
------华软网友回复------
搞点中文说明好欠好,这样乱的代码谁有心思去看      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。