Select Case e.DataCol.Name
Case "材料编号"
If e.DataRow.IsNull("材料编号") = False Then '如果已经输入订单编号
If e.DataRow.GetChildRows("核算汇总").Count > 0 Then '而且有订单明细 （材料编号作为判断的依据列）
ElseIf e.DataRow.GetChildRows("核算汇总").Count = 0 Then '而且无订单明细
Dim dr1 As DataRow = DataTables("核算汇总").AddNew()
dr1("材料编号") = e.DataRow("材料编号")
dr1("报价编号") = e.DataRow("报价编号")
End If
End If
End Select
现有的代码只关注增加 不能分析是否存在
我想要如果当前增加的过程中发现已经有了同样的内容存在 则放弃新增 否则新增行 复制内容 谢谢高手
[此贴子已经被作者于2016/9/1 0:11:41编辑过]
加好友 
发短信
Post By：2016/9/1 0:11:00 [显示全部帖子]
