- 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=30682)
-- 发布时间：2013/4/2 7:10:00
-- 请给修改一下排序代码
请给修改一下排序代码
此主题相关图片如下：6.jpg
代码如下，要求出现图5降序效果。
Dim g As New CrossTableBuilder("统计表2", DataTables("表A"))
g.HGroups.AddDef("年")
g.HGroups.AddDef("品号")
g.VGroups.AddDef("月")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表2")
此主题相关图片如下：5.jpg
1、2、3、4列全部降序排列
[此贴子已经被作者于2013-4-2 7:13:07编辑过]
-- 发布时间：2013/4/2 8:36:00
--
Tables("统计表2").Sort="1 DESC,2 DESC,3 DESC,4 DESC"