早上好！
请问多条件跨表引用多列文本代码怎么写？
如“订单”表和“订单资料”表，条件“客户名称，PO，产品编号，颜色”，引用“订单资料”表里的”客品编号，产品描述，英文颜色，客户色号“这几列的内容引用到”订单“表里。
请问代码怎么写？
Select
Case e.DataCol.Name
Case
"客户名称","PO","产品编号","颜色"
Dim dr As
DataRow = e.DataRow
Dim pr As
DataRow
If dr.IsNull("客户名称") OrElse dr.IsNull("PO") OrElse dr.IsNull("产品编号") OrElse dr.IsNull("产品编号") Then
dr("客品编号") =
Nothing
dr("产品描述") = Nothing
dr("英文颜色") = Nothing
dr("客户色号") = Nothing
Else
Dim filter
As
String
filter = "客户名称 = '" & dr("客户名称") & "' And PO = '" & dr("PO") & "' And 产品编号 = '" & dr("产品编号") & "'"
pr =
DataTables("订单资料").Find(filter)
If pr IsNot
Nothing
Then
dr("客品编号") =
pr("客品编号")
dr("产品描述") = pr("产品描述")
dr("英文颜色") = pr("英文颜色")
dr("客户色号") = pr("客户色号")
End
If
End
If
End
Select
以上代码没作用？请问哪里有问题？
[此贴子已经被作者于2020/4/24 11:51:39编辑过]
加好友 
发短信
Post By：2020/4/24 11:51:00 [显示全部帖子]
