主题：foxtable同时生成多张图改如何做

谢谢老师

尊敬的老师好。按照您的指点，我可以实现了自动绘制4个array的4个chart，但是给每个chart绘图遇到问题。附件是数据，我希望第二列作为每个chart的横坐标，第三，四，五，六列为纵坐标，可以用图示多列的方法，参考了帮助，但总出错，红色部分代码有问题，请问如何改写代码。谢谢！

Dim t As Table = Tables("statis") 

For Each c As DataCol In dt.DataCols

    If c.Name <> "第二列" Then

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

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

       Series.Length = t.Rows.Count '设置图系的长度

      

For r As Integer =0 To t.Rows.Count-1 '指定每个数据点的位置

                     Series.X(r) =val(t.Cols(ri))

                     Series.Y(r) = val(t.Rows(r)(c.Name))

     

    Next

     End If

    Next

    Chart.LegendVisible = True '显示图列

    Chart.LegendCompass= CompassEnum.East

    Chart.Dock = System.Windows.Forms.DockStyle.fill

Next

非常感谢版主ybil的指点。

ri=2。我忘了写上去。

老师好，我研究了帮助里的图表生成代码，其横坐标数值是红色部分，和我要求的不同。

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

            Series.X(r) = r
            Series.Y(r) = t.Rows(r)(c.Name)

我的要求是将第二列给定为横坐标，第三列,第四列,第五列,第六列为纵坐标，按照帮助文件无法生成。下面的代码红色部分不通过，请问该如何写？

谢谢。

For Each na As String In DataTables("statis").GetValues("第一列")

Dim dt As DataTable

    Dim cmd As new SQLCommand

    cmd.CommandText="se lect 第二列,第三列,第四列,第五列,第六列 from{statis} where 第一列='" & na & "'"

    dt=cmd.ExecuteReader   

For Each c As DataCol In dt.DataCols

        If c.Name <> "第二列" Then

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

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

       Series.Length = t.Rows.Count '设置图系的长度

      For r As Integer =0 To t.Rows.Count-1 '指定每个数据点的位置

 

                     Series.X(r) =val(t.cols(r+1))

                     Series.Y(r) = val(t.Rows(r)(c.Name))

    Next

    End If

    Next

谢谢rjh4078老师回复。我已经可以自动绘图了，结果比较符合我的要求。

老师，我说的是临时表，您给的代码是否应该写成：

老师，如何将临时表是数据传给datatables，我现在有临时表数据，将它放在datatalbes我就可以处理了。关键是如何将临时表是数据传给datatables？请老师指点。谢谢

哦，是这样，我再试试。谢谢指点。