怎样才能简单地给几十个Checkbox控件的value赋值?

beam2003

怎样才能简单地给几十个Checkbox控件的value赋值?

怎样可以给名称符合一些条件的CHECKBOX赋值,如像CheckBox1、CheckBox3、CheckBox5...等序号为奇数的Value赋值为Ture,偶数的赋值为False?

tanjh

dim i as integer

dim k as integer

for i=1 to 15 step 2

me.controls("checkbox" & i)=true

next

for k=2 to 14 step 2

me.controls("checkbox" & k)=false

next[em05]

[此贴子已经被作者于2004-10-11 20:29:13编辑过]