解決學生資訊管理系統之List列表中重複添加相同資料問題。

            學生資訊管理系統有很多錯誤需要我們去解決，下面我就解決一下在學生資訊管理系統中的“年級課程設定”表單裡出現的一個錯誤，“ list列表中重複添加資料”，當設定一個年級時課程時，你可重複添加一門課程好幾次！                  下面我展示一下解決“在list重複添加資料”的代碼！                 Private Sub cmdAdd_Click()
                    Dim i As Integer         '定義兩個整型變數
                    Dim j As Integer                   '往 listSelectcourse列表中添加課程                           If listAllcourse.ListIndex <> -1 Then
                                  listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)  
                            End If
                            For i = 0 To listSelectcourse.ListCount - 1              '外迴圈
                                   For j = i + 1 To listSelectcourse.ListCount             '內迴圈                                                             '判斷在list列表中是否有相同的資料
                                         if  listSelectcourse.list(i)=listSelectcourse.list(j)  then                                                 listSelectcourse.RemoveItem  j    '刪除添加的資料                                                  msgbox"已有添加課程，請先刪除在添加！"                                                  exit sub                                           end  if                                     next   j                         next i           end  sub

                                                
                            這樣就可以了，list表中不會再重複添加相同的資料了。