以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]高中考试成绩导入问题(狐表)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26036)
--  作者：cqlpjks
--  发布时间：2012/11/22 17:39:00
--  [求助]高中考试成绩导入问题(狐表)

动态路径的dbf格式导入到狐表中没问题了，但动态路径的多格式导入未成功，请高手指教。谢谢！

要求：1、导入对话框可以自行选择文件名、文件类型。2、科目对应(即狐表的当前表与被导入的数据文件表的列顺序不一致的情况)

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:高中考试成绩导入问题(狐表).rar
--  作者：lin_hailun
--  发布时间：2012/11/22 18:26:00
--  
 上传不了，太慢。直接贴代码。

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
e.Form.Controls("Label1").Text = "数据导入结束,可以进行分项统计!"
--  作者：cqlpjks
--  发布时间：2012/11/22 21:08:00
--  

搞定。谢谢！
--  作者：naiqing76
--  发布时间：2012/11/23 0:24:00
--  

在 vfp 中用 COPY TO 表名 TYPE  fox2

转换为dbase 的数据库dbf2.0的

然后再导入就行了

也就是把DBF 数据库的版本降低

foxtable 只认2000年之前的 vfp

vfp i是 foxtable 的死党

实际上 foxtable 真的的确多学习 vfp

foxtable  最怕 提 vfp