入库_DataColChanged

Select Case e.DataCol.Name

Case "通用名"

If e.DataRow.IsNull("通用名") = False Then \'如果已经输入订单编号

If e.DataRow.GetChildRows("通用名").Count = 0 Then \'而且无订单明细

Dim tym As DataRow = DataTables("库存").AddNew()

tym("通用名") = e.DataRow("通用名")

End If

End If

End Select

库存_DataColChanged

If e.DataCol.Name = "通用名" Then

If e.NewValue Is Nothing Then

e.DataRow("商品编号") = Nothing

e.DataRow("批号") = Nothing

e.DataRow("规格") = Nothing

e.DataRow("数量") = Nothing

e.DataRow("货位号") = Nothing

Else

Dim dr As DataRow

dr = e.DataRow.GetParentRow("入库")

If dr IsNot Nothing

e.DataRow("商品编号") = dr("商品编号")

e.DataRow("批号") = dr("批号")

e.DataRow("规格") = dr("规格")

e.DataRow("数量") = dr("数量")

e.DataRow("货位号") = dr("货位号")

End If

End If

End If

入库和库存已经通过通用名关联了，但是测试结果在通用名的地方编辑之后，只要商品编号自动填入了

其他信息不能输入，求大大看看是什么问题

参考

http://www.foxtable.com/webhelp/scr/2490.htm