老师,图表数据保留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编辑过]