以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Compute统计值时,数值的格式在哪里设置?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116952)

--  作者:sunion
--  发布时间:2018/4/3 12:20:00
--  Compute统计值时,数值的格式在哪里设置?

Compute统计值时,数值的格式如果用代码在哪里设置?比如平均分2位小数?

Dim dr As DataRow = e.DataRow
Dim
dt As DataTable =DataTables("学生成绩")
If
e.DataCol.Name = "科目" And dr.IsNull("科目") = False Then
    dr(
"最高分") = dt.Compute("Max(" & dr("科目") & ")")
    dr(
"最低分") = dt.Compute("Min(" & dr("科目") & ")")
    dr(
"平均分") = dt.Compute("Avg(" & dr("科目") & ")")

End If



我在做表时,平均值结果好多个小数,有没有办法用代码限制一下?


rt0.Cells(2,1).Text = dt.Compute("Avg(语文)")

rt0.Cells(2,2).Text = dt.Compute("Avg(数学)")

rt0.Cells(2,3).Text = dt.Compute("Avg(英语)")

rt0.Cells(2,4).Text = dt.Compute("Avg(物理)")

rt0.Cells(2,5).Text = dt.Compute("Avg(化学)")

rt0.Cells(2,6).Text = dt.Compute("Avg(政治)")

rt0.Cells(2,7).Text = dt.Compute("Avg(历史)")

rt0.Cells(2,8).Text = dt.Compute("Avg(地理)")

rt0.Cells(2,9).Text = dt.Compute("Avg(生物)")

rt0.Cells(2,10).Text = dt.Compute("Avg(体育)")

rt0.Cells(2,11).Text = dt.Compute("Avg(总分)")



[此贴子已经被作者于2018/4/3 12:30:01编辑过]

--  作者:有点甜
--  发布时间:2018/4/3 12:32:00
--  

dr("最高分") = Format(dt.Compute("Max(" & dr("科目") & ")"), "0.00")

 

http://www.foxtable.com/webhelp/scr/0361.htm

 


--  作者:sunion
--  发布时间:2018/4/3 12:39:00
--  
yes图片点击可在新窗口打开查看