Foxtable(狐表)用户栏目专家坐堂 → [求助]我想实现下面的这个功能,求老师帮帮忙吧,窗口中文本框绑定当前表的父表的某一个列


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

主题:[求助]我想实现下面的这个功能,求老师帮帮忙吧,窗口中文本框绑定当前表的父表的某一个列

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


加好友 发短信
等级:婴狐 帖子:70 积分:765 威望:0 精华:0 注册:2013/4/4 13:10:00
[求助]我想实现下面的这个功能,求老师帮帮忙吧,窗口中文本框绑定当前表的父表的某一个列  发帖心情 Post By:2013/4/28 10:10:00 [只看该作者]

假设有表A和表B两张表,表A有A1和C两列,表B有B1和C两列,表A和表B通过C列相关联,表A做为父表。

在一窗口中,有文本框Textbox1,当表B切换 行 时,文本框Textbox1的内容显示的是表B的父表 表A 的关联行 A1 列的内容

求老师帮帮忙,看能不能实现这个功能


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/28 10:15:00 [只看该作者]

e.Form.controls("TextBox1").Text=datatables("表A").Find("C列='" & tables("表B").current("C列") & "'")("A1")

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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/4/28 10:15:00 [只看该作者]

可以

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/4/28 11:27:00 [只看该作者]

如果你是双向关联的话,可以直接将这个控件绑定到字段:

 

表B.表A.字段名

 

如果不是,就按bin的代码做,代码写在表B的CurrentChanged事件:

 

If Forms("窗口名").Opened Thn

   Dim dr As DataRow = datatables("表A").Find("C列='" & e.Table.current("C列") & "'")

   If dr IsNot Nothing Then

           Forms("窗口名").controls("TextBox1").Value = dr("A1")

   end if

End if


 回到顶部