Case "领料情况_不分机组"
If e.newvalue = False Then
DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
If e.DataRow("物资说明") = "紧固件" Then
Dim ndr1 As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.NewValue & "'")
If ndr1 Is Nothing Then
Dim ndr2 As DataRow = DataTables("领料清单").AddNew
ndr2("编号") = e.DataRow("编号")
ndr2("预算编号") = e.DataRow("预算编号")
ndr2("生产令号") = e.DataRow("生产令号")
ndr2("项目名称") = e.DataRow("项目名称")
ndr2("物资说明") = e.DataRow("物资说明")
ndr2("单位") = "批"
ndr2("领料数量") = "1"
ndr2("领料日期") = Date.today
Else
e.Cancel = True
End If
End If
想实现，增加行之前查找如果预算编号相同的，则不再增加行，要怎么改？
加好友 
发短信
Post By：2018/6/7 17:18:00 [只看该作者]
