主题：1、图表多列Y,代码怎么写；2、如何只显示同一个项目的XY值图表

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计") '定义一个变量t引用数据表
Chart= forms("费用进度图").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel

Dim ary() As String = {"BCWS","ACWP","BCWP"}
Dim xm As String = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"
Chart.HeaderText = xm
Dim drs = t.DataTable.Select("项目名称 = '" & xm & "'", "统计月")
For Each s As String In ary
    Series = Chart.SeriesList.Add() '增加一个图系
    series.Text = s
    Series.Length = drs.Count '设置图系的长度
    For i As Integer = 0 To drs.Count - 1 '指定每个数据点的位置
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = drs(i)(s) '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, drs(i)("统计月")) '指定字符表示
    Next
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

请把chart帮助文档看完一遍 http://www.foxtable.com/webhelp/scr/0966.htm

Dim xm As String = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"

改成

Dim xm As String = t.current("项目名称")