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


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

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

帅哥哟,离线,有人找我吗?
13315253800
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望: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() '开始合并


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110562 积分:562700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/15 15:27:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望: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'

请蓝老师指导


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110562 积分:562700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/15 16:11:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望:0 精华:0 注册:2018/1/3 16:03:00
  发帖心情 Post By:2024/5/16 11:03:00 [只看该作者]

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



 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望: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() '开始合并客户表

......


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110562 积分:562700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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() '开始合并客户表


 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望: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.


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110562 积分:562700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/16 11:48:00 [只看该作者]

完整代码?

 回到顶部
帅哥哟,离线,有人找我吗?
13315253800
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:589 积分:4305 威望: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编辑过]

 回到顶部
总数 11 1 2 下一页