主题：这样的图表如何实现?

加粗的部分，就是设置线条的：

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("计划完成表") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True
Chart.SeriesList.Clear() '清除图表原来的图系
Dim nms() As String = {"一","二","三","四","五","六","七","八","九","十","十一","十二"}
Dim r As Row = t.current
Series1 = Chart.SeriesList.Add() '增加一个图系
Series2 = Chart.SeriesList.Add() '增加一个图系
Series1.Length = 12 '图系的数据点数等于表的行数
Series2.Length = 12 '图系的数据点数等于表的行数
Series1.LineThickNess = 1
Series2.LineThickNess = 1
Series1.MarkSize = 2
Series2.MarkSize = 2
For i As Integer = 0 To 11
    Series1.y(i) = r(nms(i) & "_" & "计划")
    Series2.y(i) = r(nms(i) & "_" & "实现")
    Series1.x(i) = i
    Series2.X(i) = i
Next

series.LineThickNess = 2   或  series.LineThickNess = 1  

曲线粗线无变化....  

你看我9楼的文件，是不是变化了？