以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何清除CheckedListBox控件中的选项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191041)

--  作者:采菊东篱下
--  发布时间:2024/3/23 0:33:00
--  如何清除CheckedListBox控件中的选项

    ComboBox1控件的ValueChanged事件中,我想如果选择空值,CheckedListBox控件不生成多选列,如果CheckedListBox控件中已存在多选列,清除已存在的多选列。我这样写选ComboBox1中不同的下拉选项,能添加相应表的列了,但已存在的没删除,在原有基础上添加,不合理,如何清除里面的选项?

Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim dlg As New SaveFileDialog

dlg.Filter = "Excel文件|*.xls"

If dlg.ShowDialog = DialogResult.Ok Then

    Dim ex As New Exporter

    ex.Format = "Excel" \'导出格式为Excel

    If e.Form.Controls("ComboBox1").Text = "比赛积分" Then

        ex.SourceTableName = "比赛积分" \'指定导出表

    Else

        ex.SourceTableName = "基本信息" \'指定导出表

    End If 

    ex.FilePath = dlg.FileName \'指定目标文件路径

    ex.Fields = lst.Value

    Dim s As String

    If e.Form.Controls("ComboBox2").Value = Nothing Then

        Return

    ElseIf e.Form.Controls("ComboBox2").Value > "" And e.Form.Controls("TextBox1").Text = Nothing Then

        ex.Filter = "[棋赛名称] = \'" & e.Form.Controls("ComboBox2").Value & "\'"

    ElseIf e.Form.Controls("ComboBox2").Value > "" And e.Form.Controls("TextBox1").Text > "" Then

        ex.Filter = "[棋赛名称] = \'" & e.Form.Controls("ComboBox2").Value & "\' And [棋赛副名] = \'" & e.Form.Controls("TextBox1").Text & "\'"

    End If 

    ex.Export() 

End If

Forms("导出窗口").Close()

密码:888888

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:象棋排赛2024323.rar



[此贴子已经被作者于2024/3/23 9:04:20编辑过]

--  作者:有点蓝
--  发布时间:2024/3/23 9:37:00
--  
清除:ckl.Items.Clear
--  作者:采菊东篱下
--  发布时间:2024/3/23 16:01:00
--  
我想历遍集合页面,获取他们的名字后添加到ComboBox1的下拉选项中,这样写
Forms("主窗口").Open()
Dim cmb1 As WinForm.ComboBox = Forms("导出窗口").Controls("ComboBox1")
Dim tab As WinForm.TabControl = Forms("主窗口").controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
    MessageBox.Show(p.Name)
    cmb1.Items.Add(p.Name)
Next 
弹出的窗口没显示页面名字。
[此贴子已经被作者于2024/3/24 9:38:05编辑过]

--  作者:有点蓝
--  发布时间:2024/3/23 16:36:00
--  
代码放到"导出窗口"的afterload事件
--  作者:采菊东篱下
--  发布时间:2024/3/23 16:46:00
--  
是在"导出窗口"的afterload事件
弹出的窗口为空

--  作者:有点蓝
--  发布时间:2024/3/23 17:19:00
--  
主窗口没有给页面集合的页签设置名称,改为使用标题
--  作者:采菊东篱下
--  发布时间:2024/3/23 22:20:00
--  
知道页面集合第几页的名称,如何获取集合页面里对应的Table名称?
[此贴子已经被作者于2024/3/24 10:38:09编辑过]

--  作者:有点蓝
--  发布时间:2024/3/24 20:22:00
--  
把Table名称和页签名称对应起来,比如页签名称为【page1】,把Table名称改为【table_page1】

或者反过来,Table名称为【table1】,把页签名称改为【page_table1】
[此贴子已经被作者于2024/3/24 20:23:05编辑过]