主题：呼叫------程版.........这样的图表看上去很别扭..能按要求做出所需要的图表吗?

呵呵，为啥不呼叫狐爸呢？

Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Chart= e.Form.Controls("Chart1")
Chart.SeriesList.Clear()
Dim nms() As String = {"一","二","三","四","五","六","七","八","九","十","十一","十二"}
For Each r As Row In Tables("订单销售汇总").Rows
    Series = Chart.SeriesList.Add()
    series.Text = r("年份")
    Series.Length = nms.length
    For i As Integer = 0 To nms.Length - 1
        Series.X(i) = i
        Series.Y(i) = r(nms(i))
    Next
Next
For i As Integer = 0 To nms.Length - 1
    Chart.AxisX.SetValueLabel(i,nms(i))
Next
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True

宽度也要加大。