一个表名“产品资料”；有品名，规格，物料编号；输入品名和规格自动生成物料编号，代码如下：Select Case e.DataCol.name
Case "品名","SIZE"
e.DataRow("物料编号") = e.DataRow("品名") & e.DataRow("SIZE").Replace(".","0").Replace("*","0")
End Select
***
第二个表名“库存清单”，希望在表“产品资料”中输入品名和规格后，生成物料编号的同时，也在表“库存资料”中自动生成品名，规格和物料编号，代码如下：
Select Case e.DataCol.name
Case "物料编号"
Dim dr As DataRow = DataTables("库存清单").Find("物料编号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("库存清单").AddNew()
dr("物料编号") = e.DataRow("物料编号")
dr("品名") = e.DataRow("品名")
dr("size") = e.DataRow("size")
Else
dr("物料编号") = e.DataRow("物料编号")
End If
End Select
新建时可以很好工作，但发现在一个问题，当我在表“产品资料”修改品名或者规格（会生成了一个新的物料编号），但怎么样让它自动修改表“库存清单”中的物料编号，品名和规格，而不是在“库存清单”又新建了一个物料编号，品名和规格？
加好友 
发短信
Post By：2015/4/15 11:30:00 [显示全部帖子]
