设置盘点表的DataColChanged时间代码:
Select Case e.DataCol.Name
Case "名称","模号"
Dim dr1 As DataRow = e.DataRow
If dr1.IsNull("标准模号") Then
messagebox.show("1")
Dim dr2 As DataRow = DataTables("库存表").Find("名称 = '" & dr1("名称") & "' And 模号 = '" & dr1("模号") & "'")
If dr2 IsNot Nothing Then
dr1("标准模号") = dr2("标准模号")
End If
End If
End Select