Office中国论坛/Access中国论坛

标题: access 如何给文本框赋于记录集的值 [打印本页]

作者: tomeoften 时间: 2011-12-6 12:00
标题: access 如何给文本框赋于记录集的值
access表 table1
字段 A B
数据 a1 b1
   a3 b2
   a6 b5
如何把上面表table1的数据值(会变化)赋值给文本框textbox
文本框名
   TA1,TA2,TA3 和TB1,TB2,TB3
即在TA1显示的值为a1, TA2显示的值为a3,TA3显示的值为a6
TB1显示的值为b1,TB2显示的值为b2,TB3显示的值为b5

作者: lzy000000 时间: 2011-12-6 12:30
学习一下啊！！！

作者: Henry D. Sy 时间: 2011-12-6 12:42
用窗体直接绑定表

作者: tomeoften 时间: 2011-12-6 15:04
把上面的texbox改为有label，用下列的代码将表中的数据赋于各个label. 没有任何显示。
Rst.MoveFirst

For intI = 1 To Rst.RecordCount - 1

Me.Controls("TA" & (CStr(intI))).Caption = Rst.Fields(0).Value
Me.Controls("TB" & (CStr(intI))).Caption = Rst.Fields(1).Value
Rst.MoveNext

Next

作者: Henry D. Sy 时间: 2011-12-6 15:09
传例子吧

作者: tomeoften 时间: 2011-12-6 15:11
例子就是我最先传的那个啊。。。

作者: Henry D. Sy 时间: 2011-12-6 15:16

tomeoften 发表于 2011-12-6 15:11
例子就是我最先传的那个啊。。。

在哪里？

作者: tomeoften 时间: 2011-12-6 15:31

Henry D. Sy 发表于 2011-12-6 15:16
在哪里？

access表 table1
字段 A B
数据 a1 b1
   a3 b2
   a6 b5
如何把上面表table1的数据值(会变化)赋值给Label, 各个label名为
   TA1,TA2,TA3 和TB1,TB2,TB3
即在TA1显示的值为a1, TA2显示的值为a3,TA3显示的值为a6
TB1显示的值为b1,TB2显示的值为b2,TB3显示的值为b5

作者: Henry D. Sy 时间: 2011-12-6 15:31
附件，也就是你的示例数据库！

作者: tomeoften 时间: 2011-12-6 15:32

tomeoften 发表于 2011-12-6 15:31
access表 table1
字段 A B
数据 a1 b1

代码哪里有问题？
Rst.MoveFirst

For intI = 1 To Rst.RecordCount - 1

Me.Controls("TA" & (CStr(intI))).Caption = Rst.Fields(0).Value
Me.Controls("TB" & (CStr(intI))).Caption = Rst.Fields(1).Value
Rst.MoveNext

Next

作者: Henry D. Sy 时间: 2011-12-6 15:37
没有库测试，怎能检测错误？？

作者: tomeoften 时间: 2011-12-6 16:00
附件上传。。。

作者: tomeoften 时间: 2011-12-6 16:08
我刚上传的示例数据库怎么没了？

作者: tomeoften 时间: 2011-12-6 16:11
帮忙看看啊。。。

作者: Henry D. Sy 时间: 2011-12-6 16:53
对不起，麻烦你上传2003格式的，好吗？

作者: shenyao_jx 时间: 2012-1-3 14:22
学习学习。。。。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)