老师好：
我有一张 “入库明细表”，在其添加一行后，我希望在“库存表”中去增加相关内容。
“入库明细表”中的“物料编号”、“库位”、“唯一码”三个字段，到“库存表”中去找对应三个字段的值，如果有三个对应的值，“库存表”中就不用增添了，如果没有对应的值，在“库存表”中增添。
我参考 帮助文件 ，输入了如下代码，但是，在运行中，三个字段即使在“库存表”中有对应的值，三个字段还是会增添一遍。
我的代码是否存在问题，请指导！
Select Case e.DataCol.name
Case "物料编号","库位","唯一码"
Dim dr As DataRow = DataTables("库存表").Find("物料编号 = '" & e.DataRow("物料编号") & "' and 库位 = '" & e.DataRow("库位") & "' and 唯一码 = '" & e.DataRow("唯一码") & "'")
If dr Is Nothing Then
dr = DataTables("库存表").AddNew()
dr("物料编号") = e.DataRow("物料编号")
dr("库位") = e.DataRow("库位")
dr("唯一码") = e.DataRow("唯一码")
Else
dr("物料编号") = e.DataRow("物料编号")
dr("库位") = e.DataRow("库位")
dr("唯一码") = e.DataRow("唯一码")
End If
Case "数量"
Dim dr As DataRow = DataTables("库存表").Find("物料编号 = '" & e.DataRow("物料编号") & "' and 库位 ='" & e.DataRow("库位") & "' and 唯一码 = '" & e.DataRow("唯一码") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
加好友 
发短信
Post By：2014/3/6 15:25:00 [显示全部帖子]
