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

此主题相关图片如下：图表疑问.bmp

想让月份停在X轴,年份为图标.年份显在下面.

数据如下:

此主题相关图片如下：图示数据.bmp

代码如下,望高手指点.

Dim q As new QueryBuilder

q.TableName = "订单销售汇总"
q.SelectString = "select 年份,sum (销售金额) 销售金额,月份 from  {订单} group by 年份,月份 "

q.Build
MainTable = Tables("订单销售汇总")
Dim g As New CrossTableBuilder("终端订单销售汇总", DataTables("终端订单销售汇总"))
g.Caption = "订单销售汇总"
g.HGroups.AddDef("年份")
g.VGroups.AddDef("月份")
g.Totals.AddDef("销售金额", "销售金额")
g.Build()
MainTable = Tables("订单销售汇总")
Tables("订单销售汇总").AutoSizeCols()
MainTable.Font = New Font("宋体",10,FontStyle.Regular)

给个数据，谁能改改？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图表示例.zip

附:xls文档

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据.zip

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

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