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

还有 如果你用的是外部数据源 cmd记得指定数据源名

再请问您一个问题，为什么程序运行后产生5个tab，第一个没有名字？谢谢。

原因找到了 你这个表里有空值  所以要加判断

str默认值是空值 为了稳妥起见 最好把na值的有效性先判断下  我只做了个简单判断 你可以把na值在表中查一遍 确认有效再进行下一步

For Each na As String In DataTables("statis").GetValues("第一列")
    If na<>"" Then
        str=na
        tab1.TabPages.Add(str,str)
        pan = e.Form.CreateControl("pan" & na,ControlTypeEnum.panel)
        pan.Dock = System.Windows.Forms.DockStyle.fill
        pan.AutoScroll=True
        pan.BackColor=color.DodgerBlue
                e.Form.Controls("tab1").basecontrol.tabpages(str).addcontrol(pan)

.....

.....

end if

next

谢谢老师，真高。

请问您是怎么调试找到此原因的？我觉得foxtable调试不方便，好像只能用output.show().还有其他更好的方式吗？

只能用笨的方法 先凭经验判断是哪句的问题 然后在注释掉 在这句前把涉及的变量都messagebox.show（）出来

谢谢老师

尊敬的老师好。按照您的指点，我可以实现了自动绘制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的指点。