以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 自动输入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147858)
--  作者：long086
--  发布时间：2020/3/25 23:44:00
--  求助 自动输入

假如订单表里有客户姓名列和联系电话，客户姓名和联系电话都在客户资料表里。

客户姓名可以通过 列表项目—数据表，自动获取。我想获得客户姓名后，自动把联系电话也填进去，怎么操作。
--  作者：程兴刚
--  发布时间：2020/3/26 2:32:00
--  
增加一个客户ID编号，拒绝客户姓名重名问题：

代码：
if e.datacol.name = "客户ID"
if e.datarow.isnull("客户ID") = false
   dim dr as datarow = datatables("客户资料").find("客户ID = \'" & e.datarow("客户ID") & "\'")
if dr isnot nothing
   e.datarow("客户姓名") = dr("客户姓名") 
   e.datarow("客户电话") = dr("客户电话") 
   e.datarow("客户地址")= dr("客户地址") 
   \'…………
else
   e.datarow("客户姓名") = nothing
   e.datarow("客户电话") = nothing
   e.datarow("客户地址")= nothing
   \'…………
end if
else
   e.datarow("客户姓名") = nothing
   e.datarow("客户电话") = nothing
   e.datarow("客户地址")= nothing
   \'…………
end if
end if
--  作者：狐狸爸爸
--  发布时间：2020/3/26 8:46:00
--  
如果建立了关联，直接用表达式列就行了：

否则用代码：