解决学生信息管理系统之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表中不会再重复添加相同的数据了。