一个子程序问题？？在线等
Private Sub admg()
Dim sql As String
If List1.Text = "administrator" Then
If Check1.Value = 1 Then adm(1) = "a" Else adm(1) = ""
If Check2.Value = 1 Then adm(2) = "b" Else adm(2) = ""
If Check3.Value = 1 Then adm(3) = "c" Else adm(3) = ""
If Check4.Value = 1 Then adm(4) = "d" Else adm(4) = ""
If Check5.Value = 1 Then adm(5) = "e" Else adm(5) = ""
If Check6.Value = 1 Then adm(6) = "f" Else adm(6) = ""
If Check7.Value = 1 Then adm(7) = "g" Else adm(7) = ""
adm(8) = adm(1) & adm(2) & adm(3) & adm(4) & adm(5) & adm(6) & adm(7)
admz = True
End If
End Sub
为什么每次加载窗体的时候这些子程序就会执行啊？？
怎么使得这些子程序在调用的时候执行没有调用的时候不执行啊？？
正确就给分。
问题点数：20、回复次数：6Top
1 楼ilove8（千里|你去哪里了,我等了你很久了!）回复于 2005-06-01 12:50:13 得分 4
Private Function admg()
……
End FunctionTop
2 楼junki（『.NET技术争霸天下』）回复于 2005-06-01 12:56:12 得分 10
晕，你肯定是在Form_Load或相关过程中调用此admg函数Top
3 楼ukm7895123（ukm7895123）回复于 2005-06-01 13:02:05 得分 0
我是在
Private Sub Check1_Click()
中调用。/
但是我设置断点它刚出现窗口的时候就执行了。Top
4 楼tmran（Rocky 爱瘦鱼）回复于 2005-06-01 13:03:29 得分 3
同意楼上，单步调试就知道了Top
5 楼zx0817（不吃草的虫子）回复于 2005-06-01 13:05:46 得分 3
你的CHECK1的VALUE属性一定设置为CHECKED了Top
6 楼ukm7895123（ukm7895123）回复于 2005-06-01 13:13:23 得分 0
不是是UNCHECKEDTop
