以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 统计表在窗口显示的与数据显示不一致  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109321)

--  作者:2900819580
--  发布时间:2017/11/9 14:31:00
--  [求助] 统计表在窗口显示的与数据显示不一致


图片点击可在新窗口打开查看此主题相关图片如下:foxtable.png
图片点击可在新窗口打开查看

 

我想要的是在窗口的表,也能像数据表显示一样,有百分号,有统计数据


代码如下~~~~~~

Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable

Dim g As New GroupTableBuilder("采购订单_采购员统计", dt)
g.Groups.AddDef("制单")
g.Totals.AddDef("逾期扣款", AggregateEnum.Count)
g.Totals.AddDef("逾期扣款")
g.SubTotal = True
g.GrandProportion = True
g.Decimals = 2
g.Build()
g.Build()
Dim tb1 As Table = Tables(e.Form.Name & "_Table2")
tb1.GrandTotal = True
tb1.DataSource = DataTables("采购订单_采购员统计")

[此贴子已经被作者于2017/11/9 14:37:05编辑过]

--  作者:有点甜
--  发布时间:2017/11/9 15:19:00
--  

Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable

Dim g As New GroupTableBuilder("采购订单_采购员统计", dt)
g.Groups.AddDef("制单")
g.Totals.AddDef("逾期扣款", AggregateEnum.Count)
g.Totals.AddDef("逾期扣款")
g.SubTotal = True
g.GrandProportion = True
g.Decimals = 2
Dim tb1 As Table = Tables(e.Form.Name & "_Table2")
tb1.DataSource = g.BuildDataSource
tb1.GrandTotal = True


--  作者:2900819580
--  发布时间:2017/11/9 20:40:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:foxtable.png
图片点击可在新窗口打开查看

有时会出现这样的错误导致系统崩溃

 


--  作者:有点甜
--  发布时间:2017/11/9 21:17:00
--  
 项目或者例子发上来看看。