郁闷中，今天老遇见奇奇怪怪的问题，

[jerrywolf]

下面这段代码是我程序中的，因它没有达到预期的结果，我在这里设一断点，查看“mycontrol”,
你猜怎么着，提示说“mycontrol”值为2002，真不知道哪里出了问题？


Dim mycontrol As Control
For Each mycontrol In FrmStSalaryinput.Controls
Select Case TypeName(mycontrol)
Case "textbox"
' txtYear.Enabled = True
' txtMonth.Enabled = True
mycontrol.Text = ""
Case Else

End Select
Next

[combread]

Dim mycontrol As Control
For Each mycontrol In FrmStSalaryinput.Controls
Select Case TypeName(mycontrol)
Case "TextBox"
' txtYear.Enabled = True
' txtMonth.Enabled = True
mycontrol.Text = ""
Case Else

End Select
Next

注意：你写的是textbox
应该写成TextBox
呵呵

[tony_jian]

^v^

[lovingkiss]

比较字符是区分大小写的阿！~

[dyj_163_com]

Dim mycontrol As Control
For Each mycontrol In FrmStSalaryinput.Controls
Select Case TypeName(mycontrol)
Case "textbox"
txtYear.Enabled = True
txtMonth.Enabled = True
mycontrol.Text = ""
Case Else

End Select
Next



Case "textbox"
写成
Case "TextBox"

[jyu1221]

'最好判断类型，不要判断名称，代码如下：
Dim mycontrol As Control
For Each mycontrol In FrmStSalaryinput.Controls
If TypeOf mycontrol Is TextBox Then
txtYear.Enabled = True
txtMonth.Enabled = True
mycontrol.Text = ""
end if
next

[bing71]

你最好把比较都转成大写