在学生系统中,添加课程的时候可能会出现以下的情况
这种情况让用户体验者看着可能也会很不舒服,所以要想法来进行一下设置,来更改一下现状,通过更改关于这个list文本框的属性或者代码来实现想要实现的业务。通过反复的调整和搜索终于也找到了解决的方法,那就是添加一句:listallcourse.clear即可解决问题。
源代码:
Private Sub cmdSet_Click()
'控件有效
listallCourse.Enabled = True
listSelectCourse.Enabled = True
cmdModify.Enabled = True
'查询数据
txtSQL = "select*from course_info"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
'是否到最后一条记录
If mrc.EOF = False Then
'添加内容到列表框
listallCourse.AddItem mrc.Fields(1)
mrc.MoveNext
End If
mrc.Close
Flagset = True
End Sub
更改后的代码:
Private Sub cmdSet_Click()
listallCourse.Clear
'????????Ч
listallCourse.Enabled = True
listSelectCourse.Enabled = True
cmdModify.Enabled = True
'???????
txtSQL = "select*from course_info"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
'?ж?????????????
If mrc.EOF = False Then
'?????????б????
listallCourse.AddItem mrc.Fields(1)
mrc.MoveNext
End If
mrc.Close
Flagset = True
End Sub
任何问题的出现都是可以解决的,这几天遇到的问题很多,有老问题,有新问题,但都是可以解决的问题,当然在解决的过程中收获也很多,有些问题的出现实则也是有规律可寻得,那么就要掌握这个规律,然后想法去跳过这个错误。