以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列表项自动动下移并显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108303)
--  作者：刘林
--  发布时间：2017/10/19 21:55:00
--  列表项自动动下移并显示

Dim li As String
For i As Integer = 1 To val(e.Sender.value)
Dim lbl As String = "第" & trim(str(i)) & "考试室|"
li = li & lbl
Next
Dim cbq As WinForm.ComboBox = e.Form.Controls("combobox3")
cbq.ComboList = li

 

 

老师，我设计一个依次安排每个考试室人数，想设置好第1考试确定后让cbq的列表自动显示第2考试室，该怎么能实现，谢谢
--  作者：有点甜
--  发布时间：2017/10/19 22:28:00
--  

 做个确定按钮，执行如下代码

 

Dim cbq As WinForm.ComboBox = e.Form.Controls("combobox3")
If cbq.SelectedIndex = cbq.Items.Count-1 Then
    msgbox("最后一行")
Else
    cbq.SelectedIndex = cbq.SelectedIndex+1
End If