Question

两个组合框，一个文本框。组合框内单选，文本框内输入数值。

三项输入完后，才能激活按钮的代码怎么写啊
if combo1.text<>"" and combo2.text<>"" and text1.text<>"" then command1.Enabled = True
不行啊，没有激活啊。求助了！

Answer 1

代码本身没有问题，你在什么时候执行这句可能是问题所在。这样试试：

Private Sub Combo2_LostFocus()
Call chk
End Sub

Private Sub Combo1_LostFocus()
Call chk
End Sub

Private Sub Text1_Change()
Call chk
End Sub

Public Function chk()
If Combo1.Text <> "" And Combo2.Text <> "" And Text1.Text <> "" Then Command1.Enabled = True
End Function