【学生】ListAllcourse禁止重复的用法
【摘要】
问题:
在添加年级课程的时候,会出现重复添加的情况。
解决方法:
点击设置课程的时候直接清除之前的记录页。
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)