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

[浏览完整版]

标题：请教合并数据Merger中合并字段Fields的格式问题

1楼

13315253800 发表于：2024/5/15 15:01:00

蓝老师我用下列代码合并excel文件，提示

mg.Fields("日期"，"客户", "数量", "单价", "产品")格式不对，

用mg.Fields("日期，客户, 数量, 单价, 产品")也不行，

请蓝老师指点一下

Dim mg As New Merger

mg.SourcePath = "d:\data\销售管理.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = "订单$" '指定要合并的表

mg.DataTableName = "订单" '指定接收数据的表

mg.Fields("日期"，"客户", "数量", "单价", "产品")

mg.Merge() '开始合并

2楼

有点蓝 发表于：2024/5/15 15:27:00

Fields是一个字符串属性，不是一个函数

mg.Fields = "日期,客户,数量,单价,产品"

3楼

13315253800 发表于：2024/5/15 15:59:00

谢谢蓝老师！我再问一问题打开文件对话框方式，合并用户指定的文件代码如下

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "excel文件|*.xls" '指定格式设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Merger

mg.SourcePath = dlg.FileName

mg.SourceTableName = "订单$" '指定要合并的表

mg.DataTableName = "订单" '指定接收数据的表

mg.Merge() '开始合并

End If

提示错误

详细错误信息：

不可识别的数据库格式 'D:\Data\销售管理.xls'。

请蓝老师指导

4楼

有点蓝 发表于：2024/5/15 16:11:00

mg.Format = "excel" '指定格式

5楼

13315253800 发表于：2024/5/16 11:03:00

蓝老师，如果“销售管理.xls”中用4个表页，分别为“订单”、“客户”、 “产品”、“价格”，我想用一个窗口按钮，实现一键合并4个表的数据，且每一个表都要指导合并的列名，请教老师如何修改代码

6楼

13315253800 发表于：2024/5/16 11:04:00

Dim mg As New Merger

mg.SourcePath = "d:\data\销售管理.xls"

mg.Format = "excel"

mg.SourceTableName = "订单$" '指定要合并的订单表

mg.DataTableName = "订单" '指定接收数据的订单表

mg.Fields = "日期,客户,数量,单价,产品"'指定接收订单表的部分列

mg.Merge() '开始合并订单表

mg.SourceTableName = "客户$" '指定要合并的客户表

mg.DataTableName = "客户" '指定接收数据的客户表

mg.Fields = "日期,客户,客户ID "'指定接收客户表的部分列

mg.Merge() '开始合并客户表

......

7楼

有点蓝 发表于：2024/5/16 11:11:00

Dim mg As New Merger

mg.SourcePath = "d:\data\销售管理.xls"

mg.Format = "excel"

mg.SourceTableName = "订单$" '指定要合并的订单表

mg.DataTableName = "订单" '指定接收数据的订单表

mg.Fields = "日期,客户,数量,单价,产品"'指定接收订单表的部分列

mg.Merge() '开始合并订单表

mg = New Merger

mg.SourceTableName = "客户$" '指定要合并的客户表

mg.DataTableName = "客户" '指定接收数据的客户表

mg.Fields = "日期,客户,客户ID "'指定接收客户表的部分列

mg.Merge() '开始合并客户表

8楼

13315253800 发表于：2024/5/16 11:40:00

老师，提示如下错误

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,订单,Button7,Click

详细错误信息：

Object reference not set to an instance of an object.

9楼

有点蓝 发表于：2024/5/16 11:48:00

完整代码？

10楼

13315253800 发表于：2024/5/16 14:45:00

Dim mg As New Merger

mg.SourcePath = "d:\data\销售管理.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = "订单$" '指定要合并的表

mg.DataTableName = "订单" '指定接收数据的表

mg.Fields = "日期,客户,数量,单价,产品"'指定列

mg.Merge() '开始合并

mg = New Merger

'mg.Format = "excel" '指定格式

mg.SourceTableName = "客户$" '指定要合并的客户表

mg.DataTableName = "客户" '指定接收数据的客户表

mg.Fields = "日期,客户,客户ID "'指定接收客户表的部分列

mg.Merge() '开始合并客户表

[此贴子已经被作者于2024/5/16 14:46:25编辑过]

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