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 = "商丘市虞城县产业集聚区道路工程(马拉松跑道)"

改成

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