合并后汇总的代码疑问 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并后汇总的代码疑问

共有12153人关注过本帖树形打印复制链接主题：合并后汇总的代码疑问

狐狸爸爸

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

加好友

发短信

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

Post By：2011/1/12 8:31:00 [显示全部帖子]

g.DateGroup = DateGroupEnum.day

改为：

g.DateGroup = DateGroupEnum.None

看看

狐狸爸爸

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

加好友

发短信

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

Post By：2011/1/12 16:51:00 [显示全部帖子]

With Tables("sop")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("排产日期")
    .MergeCols.Add("部门")
    .MergeCols.Add("班组")
    .MergeCols.Add("订单编号")
    .MergeSort = "排产日期,部门,班组,订单编号"
    .AllowMerge = True
End With
Dim t As Table = Tables("sop")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "排产日期"
g.DateGroup = DateGroupEnum.day
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal(True)
messagebox.show(CurrentTable.sort)

狐狸爸爸

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

加好友

发短信

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

Post By：2011/1/12 18:55:00 [显示全部帖子]

有这个参数，就保持现有顺序不变，不根据分组列重新排序。

狐狸爸爸

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

加好友

发短信

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

Post By：2011/1/12 19:36:00 [显示全部帖子]

那就没办法了，你得明白，合并模式必须要要排序，分组统计必须要排序，两者的排序要求不同时，自然就不能两全。

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

主题：合并后汇总的代码疑问