- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 交叉表汇总值是否可以再计算？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107798)
-- 发布时间：2017/10/10 13:38:00
-- [求助] 交叉表汇总值是否可以再计算？
请教，交叉表的汇总值是否可以再计算，比方说把值转为以“千”为单位的数字？
-- 发布时间：2017/10/10 14:06:00
--
交叉汇总之后，循环表格的每一行数据，对数据进行再加工。
具体问题上传实例说明
-- 发布时间：2017/10/10 15:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目收益.rar |
请看附件实例 ， 用如下代码生成交叉表， 希望把 “分期金额” 转换成美金（乘以汇率0.1516），并转换成以“K”为单位的数字（除以1000）
Dim g As New CrossTableBuilder("统计表1", DataTables("收益"))
g.HGroups.AddDef("项目编号")
g.VGroups.AddDef("确认时间")
g.Totals.AddDef("分期金额", "分期金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Build()
MainTable = Tables("统计表1")
-- 发布时间：2017/10/10 15:10:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("收益"))
g.HGroups.AddDef("项目编号")
g.VGroups.AddDef("确认时间")
g.Totals.AddDef("分期金额", "分期金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Build()
Dim t As Table = Tables("统计表1")
For Each r As Row In t.Rows
For Each c As Col In t.Cols
If c.IsNumeric Then
r(c) = r(c)*0.1516/1000
End If
Next
Next
MainTable = t