Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= Forms("支出统计").Controls("Chart1")
Dim dr As Row = e.Table.Current
Dim r As String() = {"购买_母猪","购买_公猪","购买_肉猪","饲料","疫苗","药品","易耗品","保险费","水电费","工资费用","工程折旧费","其他支出"}
Chart.ChartType = ChartTypeEnum.Bar
Chart.ChartType2 = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Text = "费用/元"
Series.Length = r.Length
For i As Integer = 0 To r.Length - 1
Series.X(i) = i
Series.Y(i) = dr(r(i))
Chart.AxisX.SetValueLabel(i, r(i))
Next
Chart.AxisX.AnnoWithLabels = True
Series.DataLabelText = "{#YVAL}"
Chart.VisualEffect = True
Dim sm As Integer
For i As Integer = 0 To r.Length -1
sm = sm + dr(r(i))
Next
Chart.SeriesList2.Clear()
Series = Chart.SeriesList2.Add()
Series.Text = "比例"
Series.Length = r.Length
For i As Integer = 0 To r.Length - 1
Series.X(i) = i
Series.Y(i) = format(dr(r(i)) / sm,"0.0%")
Next
Series.DataLabelText = "{#YVAL}"
Chart.VisualEffect = True
老师，帮忙看一下哪里出错了，错误提示如下：
.NET Framework 版本：2.0.50727.8000
Foxtable 版本：2014.11.11.1
错误所在事件：支出统计_Table1,CurrentChanged
详细错误信息：
Invalid data type
[此贴子已经被作者于2015/9/1 17:51:32编辑过]
加好友 
发短信
Post By：2015/9/1 17:51:00 [显示全部帖子]
