Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教合并数据Merger中合并字段Fields的格式问题


  共有2261人关注过本帖树形打印复制链接

主题：请教合并数据Merger中合并字段Fields的格式问题
帅哥哟，离线，有人找我吗？
13315253800
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		请教合并数据Merger中合并字段Fields的格式问题  发帖心情 Post By：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() '开始合并
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：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'。

请蓝老师指导
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/5/16 11:03:00 [显示全部帖子]

蓝老师，如果“销售管理.xls”中用4个表页，分别为“订单”、“客户”、 “产品”、“价格”，我想用一个窗口按钮，实现一键合并4个表的数据，且每一个表都要指导合并的列名，请教老师如何修改代码
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：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() '开始合并客户表

......
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：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.
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4392 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询