【学生】ListAllcourse禁止重复的用法

课程添加防重复技巧

最新推荐文章于 2022-05-13 10:58:16 发布

原创最新推荐文章于 2022-05-13 10:58:16 发布 · 544 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#学生信息管理系统 #ListAllcourse

学生信息管理系统专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种在添加课程时防止重复添加的方法，通过在添加前检查课程列表，确保课程的唯一性。同时，探讨了如何优化课程设置界面，避免因误操作导致的重复添加问题。

问题：

在添加年级课程的时候，会出现重复添加的情况。

解决方法：

点击设置课程的时候直接清除之前的记录页。

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

拓展：

有的小伙伴说可以直接设置这两个按钮只能点击一次，但是我现在还没有实现。欢迎小伙伴们集思广益！