Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText =" select sys_user, 胎次 as 胎次, avg(分娩_总产仔数) as 产仔数, avg(断奶_头数) as 断奶数, avg(分娩_均重) As 初生重kg, " & _
" avg(断奶_均重) as 断奶重kg f rom{母猪分娩断奶信息} where sys_user = '" & user.Name & "' group by sys_user, 胎次 "
dt = cmd.ExecuteReader
Tables("产仔数分析_table2").DataSource = dt
Tables("产仔数分析_table2").DefaultColWidth = 130
For Each c As DataCol In DataTables("产仔数分析_table2").DataCols
If c.Name <> "胎次" Then
DataTables("产仔数分析_table2").DataCols(c.Name).SetFormat("0.0")
End If
Next
Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart = e.Form.Controls("胎次1")
Chart.ChartType = ChartTypeEnum.Bar
Chart.DataSource = "产仔数分析_table2"
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Text = "产仔数"
MessageBox.Show(8)
Series.X.DataField = "胎次"
Series.Y.DataField = "产仔数"
Series.DataLabelText = "{#YVAL}"
Series = Chart.SeriesList.Add()
Series.Text = "断奶数"
Series.X.DataField = "胎次"
Series.Y.DataField = "断奶数"
Series.DataLabelText = "{#YVAL}"
Chart.VisualEffect = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
Chart.AxisX.Text = "胎次"
Chart.AxisY.Text = "头数"
老师，求救，代码执行到黄色部后就出现以下提示，不知哪里出错了！
.NET Framework 版本：2.0.50727.8000
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,产仔数分析,Button2,Click
详细错误信息：
Invalid data type
加好友 
发短信
Post By：2015/9/2 21:29:00 [只看该作者]
