[求助]导入文件到窗口中的table的代码指导 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2200人关注过本帖树形打印复制链接主题：[求助]导入文件到窗口中的table的代码指导

huangfanzi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1105 积分：8967 威望：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()

End If

huangfanzi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1105 积分：8967 威望：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

绿色的这一段没看懂用意是什么，为什么还出现了个表A，请老师用文字解释下，谢谢！

[此贴子已经被作者于2018/1/16 20:03:33编辑过]

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