Foxtable(狐表)用户栏目专家坐堂 → 把没有加载的表列出来,然后勾选表进行加载,请指点


  共有241人关注过本帖树形打印复制链接

主题:把没有加载的表列出来,然后勾选表进行加载,请指点

帅哥哟,离线,有人找我吗?
lrh9537
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2819 威望:0 精华:0 注册:2012/11/16 12:19:00
把没有加载的表列出来,然后勾选表进行加载,请指点  发帖心情 Post By:2024/5/20 10:39:00 [只看该作者]


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

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




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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107163 积分:545064 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 10:48:00 [只看该作者]

设计一个模式窗口,窗口里发一个checkedlistbox控件显示数据库里的表,数据库里的表参考这里获取:http://www.foxtable.com/webhelp/topics/1943.htm

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2819 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107163 积分:545064 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 11:37:00 [只看该作者]

内部数据源遍历DataTables即可:http://www.foxtable.com/webhelp/topics/0365.htm

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

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2819 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2024/5/20 11:52:00 [只看该作者]

然后怎么显示出来?
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107163 积分:545064 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2819 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107163 积分:545064 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 16:10:00 [只看该作者]

内部表没有办法。考虑不加载表数据,而不是不加载表。不然的话只能代码里手工写死了

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107163 积分:545064 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 16:11:00 [只看该作者]

其实内部表做动态加载没有多大意义。建议还是使用外部数据源

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2819 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2024/5/20 16:39:00 [只看该作者]

那改变一下思路,不加载表数据,怎么写?

 回到顶部
总数 17 1 2 下一页