主题：如何导入大量的数据资料

如何导入大量的数据资料

菜单的导入命令不是支持多种格式的外部资料导入吗，楼主可以试一下啊

菜单的导入命令支持多种格式的外部资料导入,但是新增表，不能按要求导入自己建立的表。

增加窗口按钮，写入下列代码可以导入动态的dbf、xls格式文件的数据：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "数据库文件|*.dbf;*.xls;*.xlsx|全部|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        If fl.ToLower.EndsWith(".dbf") Then
            Dim wjm As String = FileSys.GetName(fl)
            Dim mg As New Merger
            mg.SourcePath = FileSys.GetParentPath(fl) '指定数据文件所在目录
            mg.Format = "dbase" '指定格式
            mg.SourceTableName =  wjm '指定要合并的dbase文件,无需扩展名
            mg.DataTableName = "成绩库" '指定接收数据的表
            mg.Merge() '开始合并
        Else If fl.ToLower.EndsWith(".xls") Then
            Dim Book As New xls.Book(fl)
            For Each Sheet As xls.Sheet In Book.Sheets '引用新增加的工作表
                Dim mg As New Merger
                mg.SourcePath = fl '指定数据文件所在目录
                mg.Format = "excel" '指定格式
                mg.SourceTableName = sheet.Name & "$"
                mg.DataTableName = "成绩库" '指定接收数据的表
                mg.Merge() '开始合并
            Next
        End If
    Next
End If