Foxtable(狐表) → 用户栏目 → 专家坐堂 → 交叉统计


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

主题：交叉统计
帅哥哟，离线，有人找我吗？
czy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/10 19:43:00 [显示全部帖子]

这样？

Dim g As New CrossTableBuilder("统计表2", DataTables("订单"))
g.HGroups.AddDef("客户")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Build()
MainTable = Tables("统计表2")

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/10 21:02:00 [显示全部帖子]

没明白你的意思。

是不是只要一个统计表？
你将我代码中的“统计表2”改成“统计表1”看看。

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/11 18:47:00 [显示全部帖子]

下面这句代码就是了。

g.HorizontalTotal = True

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/13 18:55:00 [显示全部帖子]

一点都不奇怪。

在命令窗口执行下例代码，再统计看看

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/13 18:55:00 [显示全部帖子]

楼上忘了贴代码

For Each dr As DataRow In DataTables("中兴订单").DataRows
    If dr.IsNull("型号") = False Then
        dr("型号") = dr("型号").Trim()
    End If
Next

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/13 19:23:00 [显示全部帖子]

以下是引用实话实说在2009-10-13 19:06:00的发言：

能解释一下19楼的代码吗？为什么香港订单汇总又正常呢？另外，这段代码加在3楼代码的前面吗？


执行这段代码你就能看明白了。

DataTables("中兴订单").DataCols.Add("对比", GetType(String))
DataTables("中兴订单").DataCols.Add("对错", GetType(Boolean))
For Each dr As DataRow In DataTables("中兴订单").DataRows
    dr("对比") = dr("型号") & "|"
    dr("对错") = iif(dr("型号").Trim() & "|" = dr("对比"),true,false)
Next
Tables("中兴订单").Filter = "[对错] = false"

[此贴子已经被作者于2009-10-13 19:24:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/13 19:51:00 [显示全部帖子]

通用代码，指定表所有字符型列。

For Each dc As DataCol In DataTables("中兴订单").DataCols
    If dc.IsString Then
        For Each dr As DataRow In DataTables("中兴订单").DataRows
            dr(dc.Name) = dr(dc.Name).Trim()
        Next
    End If
Next


所有表对字符型列去除空格

For Each dt As DataTable In DataTables
    For Each dc As DataCol In DataTables(dt.Name).DataCols
        If dc.IsString Then
            For Each dr As DataRow In DataTables(dt.Name).DataRows
                dr(dc.Name) = dr(dc.Name).Trim()
            Next
        End If
    Next
Next

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/19 12:03:00 [显示全部帖子]

以下是引用实话实说在2009-10-19 6:55:00的发言：

我想统计表2在指定的窗口显示，代码怎么写？

[此贴子已经被作者于2009-10-19 7:58:30编辑过]


Dim g As New CrossTableBuilder("统计表2", DataTables("订单"))
g.HGroups.AddDef("客户")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Build()
Tables("汇总_table1").DataSource = DataTables("统计表2")
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/19 12:41:00 [显示全部帖子]

table控件类型为Normal，不要绑定

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/19 12:44:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10254 秒, 6 次数据查询