以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复选列表框问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140828)

--  作者:王冬浜
--  发布时间:2019/9/15 18:11:00
--  复选列表框问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:狐表实验1.zip

里面有一个导出窗口,想要达到的功能是,通过一个组合框,先选择要导出的表,这个已经实现,
问题:不能根据所选择的表,在复选列表框中,自动显示该表下的全部列,请大师指点一下,谢谢!!!
另:全选、清除按钮的代码可能没有问题,导出按钮的代码也会出问题,请顺便测试一下,保证能正常导出,予以更正指教。


--  作者:王冬浜
--  发布时间:2019/9/15 18:29:00
--  
目的是:尝试在一个项目中,让客户想导出哪个表可以任意选择,想导出哪个表的哪些列的数据也可以任意选择。


--  作者:有点蓝
--  发布时间:2019/9/15 21:04:00
--  
下拉组合框TextChanged事件
Dim s As String
For Each dc As DataCol In DataTables(e.Sender.Text).DataCols
    s &= dc.Name & "|"
Next

Dim lstcols As WinForm.CheckedListBox = e.Form.Controls("lstcols")
lstcols.ComboList = s.Trim("|")

--  作者:王冬浜
--  发布时间:2019/9/16 8:25:00
--  仍有问题未解决
导出按钮的代码,如何根据组合框不同的值,列出对应的表来呢?即表达式合成问题怎么处理?
--  作者:有点蓝
--  发布时间:2019/9/16 9:03:00
--  
    Dim ex As New Exporter
    Dim name As String = e.Form.Controls("ComboBox1").text
    ex.SourceTableName = name

--  作者:王冬浜
--  发布时间:2019/9/22 23:41:00
--  
谢谢大师,试验成功了,非常感谢!!!