If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
Dim Filter As String
If e.DataRow("供应商") = Nothing Then
Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [开发关闭] = True "
Else
Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [供应商] = '" & e.DataRow("供应商") & "' And [开发关闭] = True "
End If
Dim drs = DataTables("新产品开发阶段表").Select(Filter) '在行政区域表查找所输入省市和县市的行
If drs.count = 1 Then '
e.DataRow("供应商") = drs(0)("供应商")
e.DataRow("供应商联系人") = drs(0)("供应商联系人")
e.DataRow("联系电话") = drs(0)("供应商联系电话")
e.DataRow("供应商_铸造价格") = drs(0)("产品单价_铸造价格")
e.DataRow("供应商_加工价格") = drs(0)("产品单价_加工价格")
e.DataRow("供应商管理SQE") = drs(0)("供应商管理SQE")
e.DataRow("检验人员") = drs(0)("检验人员")
Else
e.DataRow("供应商") = Nothing
e.DataRow("供应商联系人") = Nothing
e.DataRow("联系电话") = Nothing
e.DataRow("供应商_铸造价格") = Nothing
e.DataRow("供应商_加工价格") = Nothing
e.DataRow("供应商管理SQE") = Nothing
e.DataRow("检验人员") = Nothing
End If
End If
加好友 
发短信
Post By：2019/1/8 8:12:00 [显示全部帖子]
此主题相关图片如下：360截图16280716265369.png
