- 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=29791)
-- 发布时间：2013/3/13 17:44:00
-- 文本控件绑定表问题,请教老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目16.rar |
此主题相关图片如下：图1.png
-- 发布时间：2013/3/13 17:47:00
--
如图所示,窗口打开后怎么让文本控件,TextBox1,TextBox2,TextBox3内容为指定"表A"中第一行中的"第一列""第二列""第三列"内容,
TextBox4,TextBox5,TextBox6内容为指定"表A"中第二行中的"第一列""第二列""第三列"内容,求教老师指导
-- 发布时间：2013/3/13 17:57:00
--
不可以
-- 发布时间：2013/3/13 18:12:00
--
只是显示内容而已,不做修改,请教muhua老师,怎么用代码调取?
-- 发布时间：2013/3/13 18:27:00
--
在表中加个"编号"列,第一行为"1",第二行为:"2",窗口打开事件中加入代码,从表A中找出编号为"1"的行,文本控件1的内容等于编号为1的行第一列内容,文本控件2的内容等于编号为1的行第二列的内容,
再从表A中找出编号为"2"的行,文本控件4的内容等于编号为2的行第一列的内容,文本控件5的内容等于编号为2的行的第一列的内容?
是这样意思吗?
-- 发布时间：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