以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  把没有加载的表列出来,然后勾选表进行加载,请指点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191968)

--  作者:lrh9537
--  发布时间:2024/5/20 10:39:00
--  把没有加载的表列出来,然后勾选表进行加载,请指点

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
项目打开时点击“加载数据表”,想打开一个对话框,把没有加载的表列出来,然后勾选表进行加载,(像初始化项目一样),该怎么整呢?请指点

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看




[此贴子已经被作者于2024/5/20 10:39:12编辑过]

--  作者:有点蓝
--  发布时间:2024/5/20 10:48:00
--  
设计一个模式窗口,窗口里发一个checkedlistbox控件显示数据库里的表,数据库里的表参考这里获取:http://www.foxtable.com/webhelp/topics/1943.htm
--  作者:lrh9537
--  发布时间:2024/5/20 11:29:00
--  

列出外部数据源nwnd中的所有表名:

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each 
nm As String In lst
    Output.Show(nm)

Next


列出内部数据源(shujuyuan)中的所有表名的代码怎么写?
这个代码放在哪里?
[此贴子已经被作者于2024/5/20 11:29:27编辑过]

--  作者:有点蓝
--  发布时间:2024/5/20 11:37:00
--  
内部数据源遍历DataTables即可:http://www.foxtable.com/webhelp/topics/0365.htm

如果要把表显示到checkedlistbox控件,放到窗口的afterload事件即可

--  作者:lrh9537
--  发布时间:2024/5/20 11:52:00
--  
然后怎么显示出来?
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/20 11:54:00
--  
http://www.foxtable.com/webhelp/topics/2745.htm

Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each dt As DataTable In DataTables
    ckl.Items.Add(dt.name)
Next



--  作者:lrh9537
--  发布时间:2024/5/20 16:05:00
--  
上面的代码实现了所有表都可以列出来,
但是我设置了初始不加载表,"表B", "表C", "表D" 这几个表在项目打开后还没有加载进来,怎么在列表框里显示出来(已经加载的表不显示),然后勾选后再加载进来?
Select Case e.DataTableName
    Case "表B", "表C", "表D"  \'初始不加载表
        e.Cancel = True
End Select
[此贴子已经被作者于2024/5/20 16:06:37编辑过]

--  作者:有点蓝
--  发布时间:2024/5/20 16:10:00
--  
内部表没有办法。考虑不加载表数据,而不是不加载表。不然的话只能代码里手工写死了
--  作者:有点蓝
--  发布时间:2024/5/20 16:11:00
--  
其实内部表做动态加载没有多大意义。建议还是使用外部数据源
--  作者:lrh9537
--  发布时间:2024/5/20 16:39:00
--  
那改变一下思路,不加载表数据,怎么写?