专家坐堂-导入时要报错呢,求解Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入时要报错呢,求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30498)

--  作者：ljtao888
--  发布时间：2013/3/29 9:49:00
--  导入时要报错呢,求解
Dim dlg As New OpenFileDialog
dlg.Filter = "EXCEL文件|*.xls;*.xlsx"
dlg.MultiSelect = False \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "文档架构$"
        mg.DataTableName = "文档架构"
        mg.Merge()
    Next
End If