int i, j,row_now,li_row,row_select,QTY_temp
string ITEMNO,LOTNO,POSTINGDATE,BINCODE,DOCUMENTNO,POSITION,TRANSFERDATE
string type_cc
int QTY,QTY_ENT
QTY_temp=0
dw_3.accepttext( )
dw_4.accepttext( )
TRANSFERDATE = String(today(),'yyyy-mm-dd')
type_cc = dw_4.object.type[dw_4.getrow()]
If dw_3.getrow() =0 Then
setPointer(arrow!)
MessageBox("注意!",'没有选择记录')
Return
End If
row_SELECT = dw_3.rowcount()
for i= 1 to row_select
if dw_3.getitemstring( i, 'sel') = 'Y' then
ITEMNO = dw_3.getitemstring( i, 'itemno')
LOTNO = dw_3.getitemstring( i, 'lotno')
QTY = dw_3.getitemnumber( i, 'quantity')
QTY_ENT = dw_3.getitemnumber( i, 'quantity')
POSITION = dw_3.getitemstring( i, 'POSITION_')
QTY_temp = QTY - QTY_ENT
if QTY_ENT <= 0 then
messagebox('提示','入仓数量不能为0')
return
end if
li_row = dw_2.insertrow(0)
dw_2.scrolltorow(li_row)
dw_2.setitem(li_row,'item_no',ITEMNO)
dw_2.setitem(li_row,'lot_no',LOTNO)
dw_2.setitem(li_row,'quantity', QTY)
dw_2.setitem(li_row,'POSITION',POSITION)
dw_2.setitem(li_row,'TRANSFERDATE',TRANSFERDATE)
dw_2.setitem(li_row,'nodes',type_cc)
end if
NEXT
怎么在插入前写个messagebox判断，该条记录已选择了。根据itemno+lotno+qty
------解决方案--------------------
long ll_find
ll_find=dw_2.find("item_no='"+itemno+"' and lot_no='"+lotno+"' and quantity="+string(qty),1,dw_2.rowcount())
if ll_find>0 then
messagebox("","该条记录已选择了")
continue
end if
li_row = dw_2.insertrow(0)
dw_2.scrolltorow(li_row)
dw_2.setitem(li_row,'item_no',ITEMNO)
dw_2.setitem(li_row,'lot_no',LOTNO)
dw_2.setitem(li_row,'quantity', QTY)
dw_2.setitem(li_row,'POSITION',POSITION)
dw_2.setitem(li_row,'TRANSFERDATE',TRANSFERDATE)
dw_2.setitem(li_row,'nodes',type_cc)
end if
NEXT