- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55971)
-- 发布时间：2014/8/27 10:35:00
-- [求助]
”在订单表输入产品编号，可以从产品表提取该产品的名称、型号、规格，自动输入到订单表的相关列中。”
如果“订单表”中的产品编号是由两列构成的呢，应该怎么写呢。例如：在“厂家表”中有两列，分别为“区号”和“电话”，如何在另一个表中提取该厂家的地址和名称？
If e.DataCol.Name = "区号"+"电话" Then
-- 发布时间：2014/8/27 10:37:00
--
那就分割后,再利用两个值查找.
-- 发布时间：2014/8/27 10:38:00
--
参考
http://www.foxtable.com/help/topics/1451.htm
-- 发布时间：2014/8/27 10:49:00
--
谢谢。我先试一下
-- 发布时间：2014/8/27 11:43:00
--
分割完了，主要是不知道怎么按两个值查找
-- 发布时间：2014/8/27 11:44:00
--
以下是引用xiaoyongxg2在2014-8-27 11:43:00的发言：
分割完了，主要是不知道怎么按两个值查找
分割完了，主要是不知道怎么按两个值查找
例子发上来。
-- 发布时间：2014/8/27 11:51:00
--
先吃饭吧各位老师，我下午给您发个例子，你给指点一下
-- 发布时间：2014/8/27 13:15:00
--
将A表中的区号列+电话列，匹配B表中的联系电话列，提取匹配上的地址、厂家、产品到A表。下面是例子，请教老师怎么做？
-- 发布时间：2014/8/27 14:14:00
--
datacolchanged事件，代码
Select Case e.DataCol.Name
Case "区号", "电话"
Dim fdr As DataRow = DataTables("表B").Find("联系电话 = \'" & e.DataRow("区号") & e.DataRow("电话") & "\'")
If fdr IsNot Nothing Then
e.DataRow("地址") = fdr("地址")
e.DataRow("厂家") = fdr("厂家")
e.DataRow("名称") = fdr("产品")
Else
e.DataRow("地址") = Nothing
e.DataRow("厂家") = Nothing
e.DataRow("名称") = Nothing
End If
End Select
-- 发布时间：2014/8/27 15:37:00
--
谢谢甜老师，我明白怎么做了。太感谢了