Foxtable(狐表)用户栏目专家坐堂 → 求助 自动输入


  共有2121人关注过本帖树形打印复制链接

主题:求助 自动输入

帅哥哟,离线,有人找我吗?
long086
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2605 威望:0 精华:0 注册:2013/5/22 7:16:00
求助 自动输入  发帖心情 Post By:2020/3/25 23:44:00 [只看该作者]

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

客户姓名可以通过 列表项目—数据表,自动获取。我想获得客户姓名后,自动把联系电话也填进去,怎么操作。


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2020/3/26 8:46:00 [只看该作者]

如果建立了关联,直接用表达式列就行了:

否则用代码:

 回到顶部