If e.DataCol.Name = "供应商名称" Then '发生变化的是产品编号吗?
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("供应商资料").Find("供应商名称 = '" & e.DataRow("供应商名称") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("供应商名称") = dr("供应商名称")
e.DataRow("地址") = dr("地址")
e.DataRow("联系人") = dr("联系人")
e.DataRow("电话") = dr("电话")
End If
End If
Select Case e.DataCol.name
Case "供应商名称"
Dim dr As DataRow = DataTables("供应商资料").Find("供应商名称 = '" & e.newValue & "'")
If dr Is Nothing Then
dr = DataTables("供应商资料").AddNew()
dr("供应商名称") = e.DataRow("供应商名称")
dr("地址") = e.DataRow("地址")
dr("联系人") = e.DataRow("联系人")
dr("电话") = e.DataRow("电话")
Else
dr("供应商名称") = e.DataRow("供应商名称")
End If
Case "供应商名称","地址","联系人","电话"
Dim dr As DataRow = DataTables("供应商资料").Find("供应商名称 = '" & e.DataRow("供应商名称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
我在入库单，录入了一个新的供应商名称，在供应商资料表格里面会自动增加该供应商信息，在下一个入库单，如果下拉框选择该供应商，供应商信息表，任然还会重复添加该供应商名称。
这个代码是哪里错误，麻烦老师指导下
加好友 
发短信
Post By：2019/10/4 15:04:00 [只看该作者]
