主题：图表

你好！

帮我看看什么错误

“派工耗时，待修耗时，维修耗时，待检耗时，检验耗时, 申请日期”是表A的列名。

图表X轴是 “派工耗时，待修耗时，维修耗时，待检耗时，检验耗时 ”的列名

Y轴是“派工耗时，待修耗时，维修耗时，待检耗时，检验耗时 ”对应列数据的平均值

 

 

Dim Chart As WinForm.Chart                                                                                                                                  
Dim Series As WinForm.ChartSeries                                                                                                                      
Dim t As DataTable =  DataTables(“表A")                                                                                                           
Chart = e.Form.Controls("Chart1")                                                                                                                        
Chart.ChartType = ChartTypeEnum.Bar                                                                                                               
Chart.SeriesList.Clear()                                                                                                                                             

For Each c As dataCol in t.dataCols
    If c.Name = “派工耗时，待修耗时，维修耗时，待检耗时，检验耗时” Then
        Series = Chart.SeriesList.Add()                                                                                                                        
        Series.Text = c.Name                                                                                                                                        
        Series.Length = t.Rows.Count                                                                                                                          
        For r As Integer = 0 To t.Rows.Count - 1
            Series.X(r) = r
            Series.Y(r) = t.Compute(“Avg(c.Name)”,“[申请日期] = '" & t(r) & "'")                                             
        Next
    End If
Next
For r As Integer = 0 to t.Rows.Count - 1
    Chart.AxisX.SetValueLabel(r, t.Rows(r)(“c.Name"))                                                                                            
Next

Chart.AxisX.AnnoWithLabels = True                                                                                                                       
Chart.VisualEffect = True                                                                                                                                        
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South