管理者：qdrA001
想要达到的效果是：
只要“序号”列出现新的内容，就会在“入库”表新增加一行，并且“入库表”中的“数量”列=”采购“表中”检收1_数量“ + ”检收2_数量“
在”采购“的表属性中写了以下代码：
Select Case e.DataCol.Name
Case "序号","检收1_数量","检收2_数量"
If e.DataRow.IsNull("序号") = False
Dim dr6 As DataRow
dr6 = DataTables("入库").Find("序号 = '" & e.NewValue & "'")
If dr6 Is Nothing Then
dr6 = DataTables("入库").AddNew()
dr6("序号") = e.DataRow("序号")
dr6("产品编号") = e.DataRow("编号")
dr6("数量") = e.DataRow("检收1_数量") + e.DataRow("检收1_数量")
End If
DataTables("入库").DataCols("序号").RaiseDataColChanged(dr6)
End If
End Select
出现的问题是：
1.每次更改”检收1_数量“或”检收2_数量“数字，就会追加一行，这不是想要的，想要的是，一个序号，只能为一行。
2.”数量“列的内容也不对，大概看了一下，显示的约是输入数量的2倍，这也不对。
请老师帮看看，谢谢！
加好友 
发短信
Post By：2017/4/27 9:46:00 [显示全部帖子]
