以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计结果 元 换为 万元  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150740)

--  作者:fubblyc
--  发布时间:2020/6/6 10:55:00
--  统计结果 元 换为 万元
老师,统计 怎么把 元 换为  万元

Dim dt1 As fxDataSource
Dim g1 As New SQLCrossTableBuilder("统计表2","日记账")
g1.C
g1.HGroups.AddDef("收或支2","收支类型")
g1.HGroups.AddDef("业务类型2","业务类型")
g1.VGroups.AddDef("卡号")
g1.Totals.AddDef("收或支金额")  原始数据 单位 元,想让统计的结果显示  万元  ,移动端的
g1.HorizontalTotal = True \'水平汇总
g1.Filter = filter & " and 收或支金额 <> 0 "
\'g1.Subtotal = True \'生成汇总模式
dt1 = g1.BuildDataSource()
g1.Build
Dim t As Table = Tables("统计表2")
Dim dt As DataTable = t.DataTable



--  作者:有点蓝
--  发布时间:2020/6/6 11:21:00
--  
参考:http://www.foxtable.com/mobilehelp/topics/0072.htm

 .AddCell(Format(r("收或支金额")/10000,"0.00"))