大家在做学生信息管理系统时,经常会遇到添加课程时,显示的课程老是重复,选择课程时,也总是重复,如何让它不再重复呢,经过与同学交流后,得出了一个解决办法。
只要在课程设置和选择课程按钮中各加入以下代码就可以了。
事例代码如下:
Private Sub cmdSet_Click() '“设置课程”按钮
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
Dim j As Integer
'使控件有效
listAllcourse.Enabled = True
listSelectcourse.Enabled = True
cmdModify.Enabled = True
txtSQL = "select * from course_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
'显示所有课程
While (mrc.EOF = False) '遍历记录方法2
listAllcourse.AddItem mrc.Fields(1) ’在所有课程list中添加课程名称
mrc.MoveNext
Wend
'防止listAllcourse中课程重复
For i = 0 To listAllcourse.ListCount - 1
For j = i + 1 To listAllcourse.ListCount
If listAllcourse.List(j) = listAllcourse.List(i) Then
listAllcourse.RemoveItem j '如果与上面课程重复,则移除该项
End If
Next j
Next i
mrc.Close
flagSet = True '设置成功
End Sub
大家按照这个方法试试,是不是成功了呢?如果在cmdAdd 事件中重复,那么就在该事件中也做上述处理,就可以了!
不过,提醒大家一点,在这里,大家一定要把LIST的几个属性的含义搞清楚,不然,以后遇到了,可能还是不懂,分别是以上的listcount,listIndex,list()等