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

举报
Laura_张 发表于 2022/08/26 23:04:11 2022/08/26
【摘要】 问题: 在添加年级课程的时候,会出现重复添加的情况。 解决方法: 点击设置课程的时候直接清除之前的记录页。 Private Sub cmdset_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String...

问题:

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

解决方法:

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


      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
  
 

拓展:

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

文章来源: blog.csdn.net,作者:张艳伟_Laura,版权归原作者所有,如需转载,请联系作者。

原文链接:blog.csdn.net/Laura__zhang/article/details/99709107

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。