貌似只能把不同内容的数据拆成两个表了
受程版启发,我把代码简化成下面这样了
Select Case e.DataCol.Name '自动填数据
Case "熔铸编号"
Dim nms() As String = {"合金","坯料规格","当前规格","库位","流程","完成情况"}
Dim dr As DataRow = DataTables("生产").Find("[熔铸编号] = '" & e.NewValue & "'")
For Each nm As String In nms
If dr IsNot Nothing
e.DataRow(nm) = dr(nm)
Else
e.DataRow(nm) = Nothing
End If
Next
Case "合金","坯料规格","当前规格","库位","流程","完成情况"
DataTables("生产").ReplaceFor(e.DataCol.Name, e.NewValue, "[熔铸编号] = '" & e.DataRow("熔铸编号") & "'")
End Select
[此贴子已经被作者于2012-9-8 18:29:49编辑过]