共18 条记录, 每页显示 10 条, 页签: [1] [2]

标题：求导入合并数据代码

1楼

exonjee 发表于：2009/6/5 13:01:00

1、删除当前表的所有行代码如何写
2、Merger合并文件时不能正确导入数据上，编写代码如下：附原始文件

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   FileSys.CopyFile(dlg.filename, "C:\kk.txt",True)
   Dim mg As New Merger
   mg.SourcePath = "c:\" '指定数据文件所在目录
   mg.Format = "Delimited" '指定格式
   mg.SourceTableName = "kk" '指定要合并的文本文件,无需扩展名
   mg.DataTableName = "data" '指定接收数据的表
   mg.Merge() '开始合并
end if

[此贴子已经被作者于2009-6-5 13:45:55编辑过]

2楼

狐哥发表于：2009/6/5 13:18:00

1.DataTables("表").DataRows.Clear()
2.没试过

3楼

exonjee 发表于：2009/6/5 13:34:00

请用附件进行测试原始文件(1楼附件)，导入数据为空白，谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目a.table

原始CSV文件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:aaa.rar

[此贴子已经被作者于2009-6-8 10:32:28编辑过]

4楼

yangming 发表于：2009/6/5 13:47:00

一楼没有附件?你要合并的到底是TXT文件还是EXCEL文件?

[此贴子已经被作者于2009-6-5 14:02:04编辑过]

5楼

exonjee 发表于：2009/6/5 14:03:00

要导入的原始文件

[此贴子已经被作者于2009-6-8 12:50:34编辑过]

6楼

yangming 发表于：2009/6/5 16:30:00

Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

7楼

林中侠 发表于：2009/6/5 16:42:00

以下是引用yangming在2009-6-5 16:30:00的发言：
Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

能加上个由用户指定打开路径的代码，然后选择要合并的文件，这个代码只能放在固定的地方。

8楼

exonjee 发表于：2009/6/5 17:18:00

5楼的原始文件是CSV的标准文件，要求转换成TXT文件后再合并，上边这个代码运行报错

9楼

yangming 发表于：2009/6/5 17:21:00

那只能是先转成文本文件后再合并,可将上述代码改成文本文件的合并代码

10楼

exonjee 发表于：2009/6/8 10:34:00

我在代码中是先将CSV文件转换为TXT文件后再导入合并数据的，但还是导入一片空白，导入了部份行数，但没有数据。3楼的附件是foxtable项目文件和CSV文件，请帮忙看下什么原因

共18 条记录, 每页显示 10 条, 页签: [1] [2]