Foxtable(狐表)用户栏目专家坐堂 → [求助]导入文件到窗口中的table的代码指导


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

主题:[求助]导入文件到窗口中的table的代码指导

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]导入文件到窗口中的table的代码指导  发帖心情 Post By:2018/1/16 14:51:00 [只看该作者]

项目中有个窗口,窗口中有个table表与按钮,在按钮中有以下代码,希望将EXCEL文件的Sheet1表导入到这个table中,但执行不成功,请老师看看如何修正
另外,如果EXCEL文件中有多个Sheet表,能让用户选择某个Sheet表吗?而不是非要在代码中指定。
谢谢!

Dim dlg As New OpenFileDialog
dlg.Filter= "EXCEL文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "Sheet1"
        mg.DataTableName = e.Form.Controls("Table1").Name
        mg.Merge()
    Next
End If



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/16 16:36:00 [只看该作者]

 这样你就要做一个窗口了,如

 

下载信息  [文件大小:312.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:excel作为数据源_合并.table


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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2018/1/16 20:03:00 [只看该作者]

If e.Sender.Text > "" Then
    Dim q As new QueryBuilder
    q.C
    q.TableName = "临时表"
    q.SelectString = "S elect * f rom [" & e.Sender.Text & "]"
    q.Build
    If DataTables.Contains("临时表")
        e.Form.Controls("Table1").Table.DataSource = DataTables("临时表")
    Else
        e.Form.Controls("Table1").Table.DataSource = DataTables("表A")
    End If
End If

绿色的这一段没看懂用意是什么,为什么还出现了个表A,请老师用文字解释下,谢谢!
[此贴子已经被作者于2018/1/16 20:03:33编辑过]

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


加好友 发短信
等级:超级版主 帖子:106644 积分:542397 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/1/16 21:30:00 [只看该作者]

就是把Execl的内容加载到临时表里,如果加载不成功,窗口表默认显示表A的内容

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/17 9:35:00 [只看该作者]


 回到顶部