主题：label怎么做走势图啊！

感谢 感谢 

For i As Integer = 111 To 116

    Dim c As WinForm.CheckBox = e.Form.Controls("CheckBox" & i)

    If c.Checked Then

        Series = Chart.SeriesList.Add() '增加一个图系

        Series.Length = t.Rows.Count

        Series.TooltipText = c.Text & " : {#YVAL}"

        Series.Text = c.Text

        For r As Integer = 0 To t.Rows.Count - 1

            Series.X(r) = r

            Series.Y(r) = t.Rows(r)(c.Text)

        Next

    End If

Next

感谢 感谢 

再帮我看看这个代码是那里出了问题啊！

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim dt As DataTable = DataTables("客户订单表") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

Dim qys As List(Of String) = dt.GetValues("客户_区域", "客户_区域 Is not null")

Dim tjs As String() = {"订单核算_售人民币","订单核算_利润人民币","订单核算_商品进价","订单核算_成本合计","订单核算_物流","订单核算_税收"}

For Each qy As String In qys

    Series = Chart.SeriesList.Add() '增加一个图系

    Series.TooltipText = qys.Text & " : {#YVAL}"

    Series.Text = qy '设置图系的标题

    Series.Length = tjs.length '设置图系的长度

    For r As Integer = 0 To tjs.length - 1

        Dim sum As Double = dt.Compute("sum(" & tjs(r) & ")", filter1 & " And 客户_区域  = '" & qy & "'")

        Series.X(r) = r

        Series.Y(r) = sum.Rows(r)(qys.Text)

        

    Next

Next

可不可以在设计一个按钮，点击就筛选出表，

比如选择2014年1月1日，选择周。点击按钮，就在表里筛选出2014-1-1的那一周的行。感谢