信息管理系统中关于课程重复问题的解决办法

大家在做学生信息管理系统时，经常会遇到添加课程时，显示的课程老是重复，选择课程时，也总是重复，如何让它不再重复呢，经过与同学交流后，得出了一个解决办法。

只要在课程设置和选择课程按钮中各加入以下代码就可以了。

事例代码如下：

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()等