导入按钮
Dim found As Boolean
For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows
Dim dr As DataRow=DataTables("采购明细表").Find("物品编号='" & r("物品编号") & "'")
If dr IsNot Nothing Then '如果有说明重复
MessageBox.Show(r("物品编号") & "物品名称重复","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
found = True
Exit For
End If
Next
If found = False
For Each r As Row In Tables("导入采购物品_Table1").GetCheckedRows
Dim r1 As Row = Tables("采购明细表").AddNew
Dim r2 As Row = Tables("采购总表").Current
r1("日期") = r2("日期")
r1("供应商") = r2("供应商")
r1("采购单号") = r2("采购单号")
r1("付款方式") = r2("付款方式")
r1("采购员") = r2("采购员")
r1("类别编号") = r("类别编号")
r1("物品类别") = r("物品类别")
r1("物品编号") = r("物品编号")
r1("物品名称") = r("物品名称")
r1("规格") = r("规格")
r1("型号") = r("型号")
r1("单位") = r("单位")
r1("单价") = r("单价")
Next
e.Form.close
End If
[此贴子已经被作者于2018/1/20 9:45:59编辑过]
加好友 
发短信
Post By：2018/1/20 8:55:00 [显示全部帖子]
