- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样合并两行？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95881)
-- 发布时间：2017/2/7 18:42:00
-- [求助]怎样合并两行？
此主题相关图片如下：qq截图20170207182326.png
如图我想实现的功能是：如果付款日期和凭证号完全相同则把两条记录合并为一条（借方、贷方合在一行记录上），然后把合并后的记录复制到另外一张表（加工表 ），如果没有两条完全相同的，则直接复制到另外一张表（加工表）。求代码，完全没思路
[此贴子已经被作者于2017/2/7 18:42:47编辑过]
-- 发布时间：2017/2/7 20:05:00
--
1、按付款日期和凭证号对比过进行排序，然后循环所有行判断是否和下一行付款日期和凭证号一样，如果一样就合并借方、贷方数据，然后把记录转移到加工表
3、使用sql进行分组查询，然后把结果填充到加工表
具体上传例子测试
-- 发布时间：2017/2/7 20:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:基础信息.zip |
-- 发布时间：2017/2/7 20:54:00
--
做个分组统计，然后填充即可
Dim g As New GroupTableBuilder("统计表1", DataTables("新的工作表"))
g.Groups.AddDef("付款日期")
g.Groups.AddDef("合同编码")
g.Groups.AddDef("客商编码")
g.Groups.AddDef("客商名称")
g.Groups.AddDef("凭证号")
g.Groups.AddDef("摘要")
g.Groups.AddDef("合同号码")
g.Groups.AddDef("合同名称2")
g.Totals.AddDef("借方")
g.Totals.AddDef("贷方")
g.Build()
Dim f As New Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.DataTable = DataTables("加工表") \'指定数据接收表
f.Fill() \'填充数据
-- 发布时间：2017/2/7 21:21:00
--
搞定了，非常感谢