如何用循环为名称结构为 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)
学习心得
最新文章
- 如何更改快速开发平台上的窗体按钮(06.20)
- 用Excel模仿Access开发《...(06.17)
- Access快速开发平台导航箭头改...(06.15)
- Access2024官方下载,Ac...(06.11)
- Access快速开发平台--后台A...(06.03)
- 将bit字段的Null值更新为Fa...(06.01)
- 用VBA批量更改SQL SERVE...(05.30)
- 用SQL代码更改SQL Serve...(05.29)
- Access快速开发平台--图片附...(05.29)
- 如何用VBA检查表有没有设置主键(05.28)


.gif)
