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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据统计（合计、合并）问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89828)

--  作者：zch1104
--  发布时间：2016/8/30 19:12:00
--  数据统计（合计、合并）问题

此主题相关图片如下：截图00.jpg

问题一：已用合并，但每次再打开时，汇总区域总是如图。

如写代码，对吗？表属性--事件----DataColChanged

With Tables("四单元水费管理系统")
    .MergeMode = MergeModeEnum.Free
    .MergeCols.Clear()
    .MergeCols.Add("本月每户实际用水合计_立方米")
    .MergeCols.Add("汇总_代收总金额元")
    .MergeCols.Add("汇总_上月剩余金额元")
    .MergeCols.Add("汇总_本月每户实际用水合计立方米")
    .MergeCols.Add("本月汇总")
    .MergeCols.Add("备注")
    .MergeSort = "本月每户实际用水合计_立方米,汇总_代收总金额元,汇总_上月剩余金额元,汇总_本月每户实际用水合计立方米,本月汇总,备注"
    .AllowMerge = True
End With

为什么当再次打开，就又回到原始状态了。

问题二：为什么在报表中也不合并如上图。

[此贴子已经被作者于2016/8/30 22:28:41编辑过]

--  作者：狐狸爸爸
--  发布时间：2016/8/31 7:39:00
--
哈，代码放错位置了，应该放在afteropenproject事件中：

With Tables("四单元水费管理系统")
    .MergeMode = MergeModeEnum.Free
    .MergeCols.Clear()
    .MergeCols.Add("本月每户实际用水合计_立方米")
    .MergeCols.Add("汇总_代收总金额元")
    .MergeCols.Add("汇总_上月剩余金额元")
    .MergeCols.Add("汇总_本月每户实际用水合计立方米")
    .MergeCols.Add("本月汇总")
    .MergeCols.Add("备注")
    .MergeSort = "本月每户实际用水合计_立方米,汇总_代收总金额元,汇总_上月剩余金额元,汇总_本月每户实际用水合计立方米,本月汇总,备注"
    .AllowMerge = True
End With