Foxtable(狐表)用户栏目专家坐堂 → 文本控件绑定表问题,请教老师


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

主题:文本控件绑定表问题,请教老师

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
文本控件绑定表问题,请教老师  发帖心情 Post By:2013/3/13 17:44:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目16.rar


图片点击可在新窗口打开查看此主题相关图片如下:图1.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/13 17:46:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/3/13 17:47:00 [只看该作者]

如图所示,窗口打开后怎么让文本控件,TextBox1,TextBox2,TextBox3内容为指定"表A"中第一行中的"第一列""第二列""第三列"内容,

 

TextBox4,TextBox5,TextBox6内容为指定"表A"中第二行中的"第一列""第二列""第三列"内容,求教老师指导


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


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

不可以

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/13 17:58:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/3/13 18:12:00 [只看该作者]

只是显示内容而已,不做修改,请教muhua老师,怎么用代码调取?


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/3/13 18:27:00 [只看该作者]

在表中加个"编号"列,第一行为"1",第二行为:"2",窗口打开事件中加入代码,从表A中找出编号为"1"的行,文本控件1的内容等于编号为1的行第一列内容,文本控件2的内容等于编号为1的行第二列的内容,

 

再从表A中找出编号为"2"的行,文本控件4的内容等于编号为2的行第一列的内容,文本控件5的内容等于编号为2的行的第一列的内容?

 

是这样意思吗?


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/3/13 18:44:00 [只看该作者]

图片点击可在新窗口打开查看思路没错,实现了

 

Dim dr1 As DataRow
dr1 = DataTables("表A").Find("编号 = 1")
If dr1 IsNot Nothing Then '如果找到的话
    e.Form.Controls("TextBox1").Value = dr1("第一列")
    e.Form.Controls("TextBox2").Value = dr1("第二列")
    e.Form.Controls("TextBox3").Value = dr1("第三列")
End If
Dim dr2 As DataRow
dr2 = DataTables("表A").Find("编号 = 2")
If dr2 IsNot Nothing Then '如果找到的话
    e.Form.Controls("TextBox4").Value = dr2("第一列")
    e.Form.Controls("TextBox5").Value = dr2("第二列")
    e.Form.Controls("TextBox6").Value = dr2("第三列")
End If


 回到顶部