access 如何给文本框赋于记录集的值

tomeoften · 发表于 2011-12-6 12:00:22

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:07

学习一下啊！！！

Henry D. Sy · 发表于 2011-12-6 12:42:46

用窗体直接绑定表

tomeoften · 发表于 2011-12-6 15:04:58

把上面的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:31

传例子吧

tomeoften · 发表于 2011-12-6 15:11:36

例子就是我最先传的那个啊。。。

Henry D. Sy · 发表于 2011-12-6 15:16:49

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

在哪里？

tomeoften · 发表于 2011-12-6 15:31:03

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:55

附件，也就是你的示例数据库！

tomeoften · 发表于 2011-12-6 15:32:37

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] access 如何给文本框赋于记录集的值

群介绍
主题无相 (随机显示版	同地区群块其他地区)