高速合并表Merger的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 高速合并表Merger的问题

共有4841人关注过本帖树形打印复制链接主题：高速合并表Merger的问题

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

高速合并表Merger的问题 发帖心情

Post By：2013/8/10 18:29:00 [只看该作者]

设计了各系统需要经常从公司的ERP(U8)系统导入数据，目前还达不到直接从U8导入到狐表开发的系统中的水平，先由U8导出Excel表，再从Excel表倒入（采用合并的方式）到狐表系统，现在的问题是U8导出的Excel 数据字段名包括如"()" 等狐表列不允许的符号, 手工去除Excel表中的非法符号太耗时间，有没有好的方法？

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/8/10 18:39:00 [只看该作者]

这个应该不难，你传个例子，上几张U8导出的表。

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

Post By：2013/8/10 18:49:00 [只看该作者]

传上去了，“标准宽”和“标准长”“母件名称”合并不了。谢谢！

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/10 19:31:00 [只看该作者]

楼主，对于导出的xls文件，可以使用代码修改xls的表头为你喜欢的，参考下。

Dim file As String = ProjectPath & "test.xls"

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For i As Integer = 0 To sheet.Cols.Count - 1

Dim data As String = sheet(0, i).Text

'Dim sidx As Integer = data.IndexOf("(")

'Dim eidx As Integer = data.IndexOf(")")

'If sidx > -1 Then

'data = data.SubString(0, sidx) & data.SubString(eidx)

'End If

sheet(0, i).Value = data.Replace(" ", "").Replace("(", "").Replace(")", "")

book.Save(file)

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

Post By：2013/8/10 22:56:00 [只看该作者]

以下是引用有点甜在2013-8-10 19:31:00的发言：
楼主，对于导出的xls文件，可以使用代码修改xls的表头为你喜欢的，参考下。

Dim file As String = ProjectPath & "test.xls"

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For i As Integer = 0 To sheet.Cols.Count - 1

Dim data As String = sheet(0, i).Text

'Dim sidx As Integer = data.IndexOf("(")

'Dim eidx As Integer = data.IndexOf(")")

'If sidx > -1 Then

'data = data.SubString(0, sidx) & data.SubString(eidx)

'End If

sheet(0, i).Value = data.Replace(" ", "").Replace("(", "").Replace(")", "")

book.Save(file)

看了好久，也看不明白，不知如何添加代码，我重新做了各事例，加了各按钮，将数据合并进来，Excel 表头有“（”“）”的列没有合并进来，麻烦再事例中加入代码，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:合并数据.foxdb

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

[此贴子已经被作者于2013-8-10 22:57:17编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/10 23:15:00 [只看该作者]

如下例子

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

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

Post By：2013/8/10 23:44:00 [只看该作者]

还是看不明白，。点按钮，出现错误，明天接着测试，谢谢了。

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

Post By：2013/8/11 7:23:00 [只看该作者]

6楼朋友，我看到新加了audiobutton在button上，这起什么作用？如果在我的电脑上测试，我还需要修改什么？"file"的路径？还是“P2891"的路径？

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2013/8/11 9:17:00 [只看该作者]

你是不是搞错了，我测试6楼的文件没有任何问题，也没有看到什么“audiobutton在button上”。

另注意第一行代码：

Dim file As String = ProjectPath & "P2891.xlsx"

也就是说这个待合并的excel文件和项目文件必须在同一个目录。

个人建议你先看帮助，至少要系统学习两遍，否则人家给你写的代码，你也消化不了，意义何在？

tj-pacer

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

加好友

发短信

等级：小狐帖子：347 积分：2844 威望：0 精华：0 注册：2013/4/26 20:58:00

Post By：2013/8/11 9:58:00 [只看该作者]

奇怪，昨天下载的文件有audioboutten, 可能是我弄乱来，正在系统学习帮助，在实践中学才能加深理解。如果我把Excel文件和项目文件都放到D:\My document D, 代码做如何的改动？本人比较愚钝，请耐心指点。

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：高速合并表Merger的问题