Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多个表引用一个下拉窗口


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

主题：多个表引用一个下拉窗口
帅哥，在线噢！
15666282205
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：538 积分：4254 威望：0 精华：0 注册：2019/1/13 10:12:00 		多个表引用一个下拉窗口  发帖心情 Post By：2019/11/8 10:01:00 [只看该作者]

老师，设计了一个下拉窗口，想多个表引用，如何改代码呢？
Dim tbl As Table = Tables("商品信息下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("pfullname")
    Tables("莱矿备件表").Current("商品编码") = tbl.Current("pusercode")
End If
e.Form.DropDownBox.CloseDropDown()
还有一个“发货记录表”，如何把代码改一下，让它自己区分是哪个表，请指导。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 10:07:00 [只看该作者]


 回到顶部
帅哥，在线噢！
15666282205
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：538 积分：4254 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2019/11/9 7:48:00 [只看该作者]

老师，帮助写得太简单了，还是不会写代码。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/9 8:45:00 [只看该作者]

Dim tbl As Table = Tables("商品信息下拉窗口_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("pfullname")
    e.Form.DropTable.Current("商品编码") = tbl.Current("pusercode")
End If
e.Form.DropDownBox.CloseDropDown()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询