以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表数据格式化不成功  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186058)

--  作者:cd_tdh
--  发布时间:2023/4/4 10:27:00
--  图表数据格式化不成功
老师,图表数据保留2位,转换不成功,哪儿问题
Dim i2 As Integer = 0
For Each r2 As DataRow In dt2.Select("", "中标总额")
    Series2.X(i2) = i2 \'指定水平坐标
    Series2.DataLabelText = "{#YVAL}" \'显示Y轴的值
    Series2.DataLabelCompass = LabelCompassEnum.East \'标识的位置
\'    Series2.Y(i2) = r2("中标总额") \'指定垂直坐标
    Series2.Y(i2) = CDbl(val(dt2.Compute("Sum(中标总额)", "[所属机构] = \'" & r2("所属机构") & "\'")) / 10000) \'\'指定垂直坐标
    Chart2.AxisX.SetValueLabel(i2, r2("所属机构")) \'指定字符表示
    i2 += 1
Next
[此贴子已经被作者于2023/4/4 10:27:32编辑过]

--  作者:cd_tdh
--  发布时间:2023/4/4 10:38:00
--  
    Series2.Y(i2) = Round2(r2("中标总额") / 10000, 2)
这样写好用了