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


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

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

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望: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

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望: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事件即可

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望: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



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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 16:10:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 16:11:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/20 16:46:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/21 8:59:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/21 9:27:00 [显示全部帖子]

for each n as string in nms
Dim mg As New Merger
mg
.SourcePath = "c:\data\" & n & ".xls"
mg
.Format = "excel" '指定格式
mg
.SourceTableName = n & "$ '指定要合并的表
mg
.DataTableName = n '指定接收数据的表
mg
.Merge() '开始合并
next

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


加好友 发短信
等级:超级版主 帖子:107604 积分:547323 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/21 9:57:00 [显示全部帖子]

DataTables(n).DataRows.Clear

 回到顶部