问题:
在添加年级课程的时候,会出现重复添加的情况。
解决方法:
点击设置课程的时候直接清除之前的记录页。
Private Sub cmdset_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'清空控件中现有的记录
ListAllcourse.Clear
'使各个控件有效
ListAllcourse.Enabled = True
Listselectcourse.Enabled = True
cmdModify.Enabled = True
'查询数据
txtSQL = "select * from course_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断是否到最后一条记录
While (mrc.EOF = False)
'添加内容到列表框中
ListAllcourse.AddItem mrc.Fields(1)
mrc.MoveNext
Wend
mrc.Close
flagSet = True
End Sub
直接设置课程不可以重复添加!
'设置课程不能重复添加!
Private Sub cmdAdd_Click()
'判断是否有内容被选中
If ListAllcourse.ListIndex <> -1 Then
' Listselectcourse.AddItem ListAllcourse.list(ListAllcourse.ListIndex)
Call addlist(Listselectcourse, ListAllcourse.list(ListAllcourse.ListIndex))
End If
End Sub
拓展:
有的小伙伴说可以直接设置这两个按钮只能点击一次,但是我现在还没有实现。欢迎小伙伴们集思广益!