以文本方式查看主题

-  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=144634)

--  作者:wendude
--  发布时间:2019/12/25 20:22:00
--  [求助]关于某列中百分比的计算
求助:统计是否符合列中”否“出现的占比,出现表的最下端。谢谢
--  作者:有点蓝
--  发布时间:2019/12/26 9:12:00
--  
可以利用汇总模式

Dim t As Table = Tables("订单")
If t.Rows.Count > 0
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "*"
t.SubtotalGroups.Add(g) 

t.Subtotal() 
t.Rows(t.Rows.Count(True) - 1,True)("是否符合") = Format(t.Compute("count(_Identify)","是否符合=\'否\'") / t.Rows.Count),"0.00%")

--  作者:wendude
--  发布时间:2019/12/30 20:58:00
--  这个报错了
提示报错:编译错误,应为语句结束,错误代码:t.Rows(t.Rows.Count(True) - 1,True)("是否符合") = Format(t.Compute("count(_identify)","是否符合=\'否\'") / t.Rows.Count),"0.00%")
--  作者:有点蓝
--  发布时间:2019/12/30 21:28:00
--  
t.Rows(t.Rows.Count(True) - 1,True)("是否符合") = Format(t.Compute("count(_Identify)","是否符合=\'否\'") / t.Rows.Count,"0.00%")