前段時間，時間緊、任務重、自己懶，隔了那麼久，也攢了很多幹貨，今天拿出來晾涼，省的發黴。好了，接下來一起步入正題吧！

錯誤一：

點選除錯後顯示標紅部分：

Private Sub Form_Load()

     comboCoursetype.AddItem = "必修"

    comboCoursetype.AddItem = "考查"

End Sub

錯誤原因：VB程式設計中出現引數不可選是因為沒有輸入必要的引數，使用了錯誤的引數或錯誤賦值引起的。

解決方法：把“=”去掉，即：

comboCoursetype.AddItem "必修"

comboCoursetype.AddItem "考查"

錯誤二：

點選確定，顯示如下紅色部分：

If Not IsNumeric(Trim(txtCourseno.Text)) Then

        MsgBox "請輸入數字編號！", vbOKOnly + vbExclamation, "警告"

        txtCourseno.Text

        Exit Sub

End If

解決方法：把屬性改為：.setFocus

錯誤三：

If Not Tesetxt(txtCoursedes.Text) Then

        MsgBox "請輸入課程描述資訊！", vbOKOnly + vbExclamation, "警告"

        txtCoursedes.SetFocus

        Exit Sub

錯誤原因：程式碼敲錯，應改為：Testtxt

錯誤四：

全部程式碼：

If (Trim(mrc.Fields(0))) = Trim(txtCourseno.Text) Then

            MsgBox "課程編碼已經存在，請重新輸入課程編號！", vbOKOnly + vbExclamation, "警告"

            '清空內容

            txtCourseno.Text = ""

            '獲得焦點

            txtCourseno.SetFocus

            Exit Sub

        End If

            '移動到下一條記錄

            mrc.MoveNext

        End If

錯誤原因：敲錯，改為“Else”

錯誤五：

點選確定，出現錯誤顯示紅色部分：

Private Sub Form_Load()

    flagselect = False

    '新增班號到comboBox

    txtSQL = "select*from class_Info"

    Set mrc = ExecuteSQL(txtSQL, MsgText)

    While (mrc.EOF = False)

        comboClassno.Text mrc!class_No

        mrc.MoveNext

Wend

解決方法：把屬性改為“.AddItem”

這幾次的錯誤看起來比較簡單，但是芝麻再小也是精華啊，還是要好好總結，畢竟細節決定成敗，勿以善小而不為嘛，接下來會及時更新的，敬請期待吧！