主题：如何绘图

你的意思是画无数条线？根据xy坐标？

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A") '定义一个变量t引用数据表
Chart = forms("map").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
For Each name As String In t.DataTable.GetValues("linename")
   
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = Name '设置图系的标题
    Dim drs As List(Of DataRow) = t.DataTable.Select("linename = '" & name & "'")
    Series.Length = drs.Count '设置图系的长度
    For r As Integer = 0 To drs.Count - 1
        Series.X(r) = val(drs(r)("x"))
        Series.Y(r) = val(drs(r)("y"))
    Next
Next
For r As Integer = 0 To t.Rows.Count - 1
   
Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

在循环之前，你要设置

Series.Length = NumberofStreamers

drawcell事件写代码，如

Dim frm As WinForm.Form = forms("窗口1")
If frm.Opened Then
    Dim nd As WinForm.TreeNode = frm.Controls("TreeView1").selectedNode
    If nd IsNot Nothing Then
        e.Table.DataTable.AddUserStyle("样式1", color.red, color.black)
        If nd.Text = e.Row("第一列") Then
            e.style = "样式1"
        End If
    End If
End If

AfterSelectNode事件

Tables("表A").Refresh

为空的时候，筛选全部呗。TextChanted事件

If e.Sender.Text > "" Then

    Tables("表A").Filter = "日期 = #" & e.Sender.Text & "#"

Else

    Tables("表A").Filter = ""

End If

参考 http://www.foxtable.com/webhelp/scr/1791.htm

可以换成任意的啊

AddGanttLabels("d/M aaaabbbbb")