在导入窗口中, 导入按钮的代码为:
If Tables("采购主表.采购明细表").rows.Count > 0 Then
For Each r1 As Row In Tables("采购主表.采购明细表").GetCheckedRows
Dim r2 As Row = Tables("入库主表.入库明细表").AddNew
r2("排产序列号") = r1("排产序列号")
r2("采购单号") = r1("采购单号")
r2("产品编号") = r1("产品编号")
r2("数量") = r1("数量")
r2("单价") = r1("单价")
r2("单位") = r1("单位")
'r2("产品编号") = r1("单位")
Next
e.Form.close
Else
MessageBox.Show("该笔订单无未下单项!")
End If
如何加入一个判断,排产序列号不能重复,如重复就提示此产品已入库,拒绝导入???
现在知道在表中可以加入以下代码, 但在窗口中虽然有提示, 但还是导入了, 如何不允许导入呢??
If e.DataCol.Name = "排产序列号" Then
Dim dr As DataRow
dr = e.DataTable.Find("排产序列号 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("此产品已入库!")
e.Cancel = True
End If
End If