我想知道我錯什麼,可以教教我嘛~謝謝~
我的frm 有option 1 to option 11
若果user 沒有click option的話,便會出現msgbox
但不知何解click 了option 依然會出現msgbox
我已經看過舊文章,好像沒有類似問題
煩請相告~~
Private Sub Option1_Click(Index As Integer)
Dim shadow As Integer
Dim lbl_set
 lbl_set = Array("true", "true", "true", "true", "true", "true", "true", "true", "true", "true", "true")
End Sub
Private Sub cmdAdd_Click()
Dim a As String
Dim m_Button As VbMsgBoxResult
If lbl_set = False Then
MsgBox "You haven't select the item type", 16 + vbOKOnly, "Error"
  Exit Sub
End If
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(5) 人氣()