我的表单上有两个控件，其代码如下所列。不知为什么当我单击“COMMAND1”按钮时，会出现COMBO1_CLICK事件代码中的信息提示“明天会更好!”，朋友们能否告诉我其原因及其解决办法。

Private Sub Command1_Click() Combo1.Text = LTrim(RTrim(Adodc1.Recordset("品名")))

end sub

Private Sub Combo1_Click() y = msgbox("明天会更好!",37,"提示")

end sub

设置Combo的Text属性值会触发他的Click事件，你可以用一个标志来避免它

Dim bMySet As Boolean

Private Sub Command1_Click() bMySet = True Combo1.Text = LTrim(RTrim(Adodc1.Recordset("品名"))) End Sub

Private Sub Combo1_Click() If bMySet = True Then bMySet = False Exit Sub End If y = MsgBox("明天会更好!", 37, "提示") End Sub

谢谢版主！