Foxtable(狐表)用户栏目专家坐堂 → [求教]多表窗口统计


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

主题:[求教]多表窗口统计

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/24 23:35:00 [显示全部帖子]

没看懂你的计算统计逻辑。请举例说明:比如 输入什么值后,点击按钮,得到什么结果。结果由哪些数据通过什么逻辑运算得到。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/25 10:44:00 [显示全部帖子]

参考代码,理解代码后自己扩展

 

Dim xm = "中建五局土木工程有限公司:大理市中心城区综合管廊ppp项目-"
Dim g As New CrossTableBuilder("统计表1", DataTables("明细根表"))
g.HGroups.AddDef("销售审核_结算日期")
g.HGroups.AddDef("销售名称")
g.VGroups.AddDef("销售标号")
g.Totals.AddDef("销量", "销量")
g.HorizontalTotal = True
g.filter = "销售名称='" & xm & "'"
Dim dt1 As fxDataSource
dt1 = g.BuildDataSource

Dim g1 As New GroupTableBuilder("统计表2", DataTables("泵送明细"))
g1.Groups.AddDef("销售结算日期")
g1.Groups.AddDef("销售工地名称")
g1.Totals.AddDef("砼方量_签单")
g1.Totals.AddDef("结算_销售")
g1.filter = "销售工地名称='" &  xm & "'"
Dim dt2 As fxDataSource
dt2 = g1.BuildDataSource

Dim nms1 As String() = {"销售审核_结算日期","销售名称"} '指定连接列
Dim nms2 As String() = {"销售结算日期","销售工地名称"} '指定连接列
dt1.Combine(nms1,dt2,nms2) '将销售统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结果


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/25 10:44:00 [显示全部帖子]


 回到顶部