如何用循环为名称结构为 T(m)_(n)控件赋值
时 间:2007-11-21 22:51:20
作 者:victorduane ID:70 城市:闵行
摘 要:如何用循环为名称结构为 T(m)_(n)控件赋值
正 文:
求助:如何用循环为控件赋值?
有 m x n 个CheckBox排列,名称结构为 T(m)_(n) ,请问如何用两重For为每一个控件赋初始值呢?
答:
Sub setIntvalue(frm As Form, m As Integer, n As Integer, Optional x As Boolean = True)
Dim ctl As String
Dim i As Integer
Dim j As Integer
For i = 1 To m
For j = 1 To n
ctl = "T(" & i & ")_(" & j & ")"
frm.Controls(ctl).Value = x
Debug.Print ctl, x
Next
Next
End Sub
Dim ctl As String
Dim i As Integer
Dim j As Integer
For i = 1 To m
For j = 1 To n
ctl = "T(" & i & ")_(" & j & ")"
frm.Controls(ctl).Value = x
Debug.Print ctl, x
Next
Next
End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access自定义消息盒Msg...(04.28)
- Access怎么按每个月份里面...(03.09)
- Access怎么按季度来统计人...(02.26)
- Access怎么按年龄段来统计...(01.26)
- 【Access高效办公】上一年...(12.29)
- 用Access连续窗体制作的树...(11.03)
- 【Access高效办公】上一年...(10.30)
- Access制作的RGB转CM...(09.22)
- Access制作的RGB调色板...(09.15)
学习心得
最新文章
- 直播预告|Access多用户协作终...(05.10)
- 盟威软件快速开发平台(05.07)
- 站长张志在网络百科全书中的介绍(05.02)
- Access自定义消息盒Msgbo...(04.28)
- Access快速开发平台--提示:...(04.23)
- Access快速开发平台--2.6...(04.20)
- 批量插入数据大幅提升速度详解(04.13)
- 如何用VBA代码结合企业微信,给微...(04.11)
- Access直播-TreeView...(04.10)
- Access直播-带您进入ACCE...(04.08)


.gif)
