关于Combine方法的请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于Combine方法的请教

共有10564人关注过本帖树形打印复制链接主题：关于Combine方法的请教

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

关于Combine方法的请教 发帖心情

Post By：2011/9/10 9:37:00 [只看该作者]

用于组合多个fxDataSource对象,

如果是两个统计表，按帮助说明执行，

如果是一个统计表，一个普通表，那么该如何？

例子：

统计表：

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("型号") '根据型号分组
bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计
bd1.Totals.AddDef("金额","进货_金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

普通表：

产品明细表——字段｛"型号","大类","明细类","产品名称"｝

目标结果是要达到字段｛"大类","明细类","产品名称","型号","进货_数量","进货_金额"｝

[此贴子已经被作者于2011-9-10 9:36:51编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/10 10:02:00 [只看该作者]

没有没有办法，等下次更新，告诉你一个办法。

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2011/9/10 10:10:00 [只看该作者]

哦，那就等等，谢谢先！

紙上不談兵

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

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/10 10:47:00 [只看该作者]

嘻嘻,不用等,現在就可以:

Dim jb1 As New SQLJoinTableBuilder("查询","A")

jb1.AddCols("大类","明细类","产品名称","型号")

Dim dt1 As fxDataSource

dt1 = jb1.BuildDataSource()

Dim bd1 As New GroupTableBuilder("统计",DataTables("进货单"))

Dim dt2 As fxDataSource

bd1.Groups.AddDef("型号") '根据型号分组

bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计

bd1.Totals.AddDef("金额","进货_金额") '对金额进行统计

dt2 = bd1.BuildDataSource()

dt1.Combine("型号",dt2,"型号") '

Tables("窗口1_Table1").DataSource =dt1

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2011/9/10 13:06:00 [只看该作者]

以下是引用紙上不談兵在2011-9-10 10:47:00的发言：
嘻嘻,不用等,現在就可以:

Dim jb1 As New SQLJoinTableBuilder("查询","A")

jb1.AddCols("大类","明细类","产品名称","型号")

Dim dt1 As fxDataSource

dt1 = jb1.BuildDataSource()

Dim bd1 As New GroupTableBuilder("统计",DataTables("进货单"))

Dim dt2 As fxDataSource

bd1.Groups.AddDef("型号") '根据型号分组

bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计

bd1.Totals.AddDef("金额","进货_金额") '对金额进行统计

dt2 = bd1.BuildDataSource()

dt1.Combine("型号",dt2,"型号") '

Tables("窗口1_Table1").DataSource =dt1

谢谢提示，不过需要更改一下后2句代码：

dt2.Combine("型号",dt1,"型号") '

Tables("窗口1_Table1").DataSource =dt2

虽然如此，以上仍然有些不足的，居然不会完全关联的——dt2中相同的型号的只会在第一条对应取得dt1中的值，其他的却不会取值

紙上不談兵

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

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/10 13:17:00 [只看该作者]

以下是引用kylin在2011-9-10 13:06:00的发言：

谢谢提示，不过需要更改一下后2句代码：

dt2.Combine("型号",dt1,"型号") '

Tables("窗口1_Table1").DataSource =dt2

虽然如此，以上仍然有些不足的，居然不会完全关联的——dt2中相同的型号的只会在第一条对应取得dt1中的值，其他的却不会取值

我測試正常啊:

下载信息 [文件大小：下载次数： ]
点击浏览该文件:组合统计结果.table

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2011/9/10 13:31:00 [只看该作者]

下载看了一下，果然没有问题，我检查一下我的数据情况，可是事实还是这样的呀

紙上不談兵

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

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/10 14:00:00 [只看该作者]

那麼肯定有一個錯誤,不會兩個數據正確,但結果一正一反的.

紙上不談兵

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

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/10 17:47:00 [只看该作者]

以下是引用kylin在2011-9-10 13:31:00的发言：
下载看了一下，果然没有问题，我检查一下我的数据情况，可是事实还是这样的呀

可能你的數據有空格所至吧

[此贴子已经被作者于2011-9-10 18:05:31编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

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

Combine也可以直接作为一个函数使用：

Combine(DataTables("表1").BaseTable，"连接列",DataTables("表2").BaseTable，"连接列")

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

总数 14 1 2 下一页

主题：关于Combine方法的请教