学生信息管理系统——错误集锦（三）

前段时间，时间紧、任务重、自己懒，隔了那么久，也攒了很多干货，今天拿出来晾凉，省的发霉。好了，接下来一起步入正题吧！

错误一：

点击调试后显示标红部分：

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”

这几次的错误看起来比较简单，但是芝麻再小也是精华啊，还是要好好总结，毕竟细节决定成败，勿以善小而不为嘛，接下来会及时更新的，敬请期待吧！