主题：datatable排序问题

此主题相关图片如下：动态加载.png

没看懂你要生成什么样的chart，这种？ http://www.foxtable.com/webhelp/scr/0970.htm

 

或者画图举例说明。

Dim str As String
Dim str2 As String
'Dim na As List(Of String)

Forms("Gun Process").Open
For Each na As String In DataTables("GunErrorStatistics").GetValues("Source Number")
    If na<>"" Then
        Dim pan As WinForm.Panel'需要加上这一句
        Dim tabs As WinForm.TabControl
        str=na
        Forms("Gun Process").Controls("TabControl1").TabPages.Add(str,"Source Number" & str)
        pan = Forms("Gun Process").CreateControl("pan" &  na,ControlTypeEnum.Panel)
        pan.Dock = System.Windows.Forms.DockStyle.fill
        pan.AutoScroll=True
        pan.BackColor=color.DodgerBlue
        Forms("Gun Process").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(pan)
       
        tabs= Forms("Gun Process").CreateControl("tab" & na,ControlTypeEnum.TabControl)
        tabs.Dock = System.Windows.Forms.DockStyle.fill
        'tabs.AutoScroll=True
        pan.addcontrol(tabs)
        For Each na2 As String In DataTables("GunErrorStatistics").GetValues("Array", "[Source Number]='" & na & "'")'
            Dim p = tabs.tabpages.add(na2, na2)
           
           
            Dim Chart As WinForm.Chart '定义一个图表变量
            Dim Series As WinForm.ChartSeries '定义一个图系变量
            Chart = New ChartBuilder
            Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
            Chart.SeriesList.Clear() '清除图表原来的图系
            Dim cs() As String = {"Miss Fire","Auto Fire","Delta Error","Depth Error"}
            Dim drs = DataTables("GunErrorStatistics").Select("[Source Number] = '" & na & "' and Array = '" & na2 & "'")
            For Each c As String In cs
                Series = Chart.SeriesList.Add() '增加一个图系
                Series.Text = c '设置图系的标题
                Series.Length = drs.count'设置图系的长度
                For r As Integer = 0 To drs.Count - 1
                    Series.X(r) = r
                    Series.Y(r) = drs(r)(c)
                Next
            Next
            For r As Integer = 0 To drs.Count - 1
                Chart.AxisX.SetValueLabel(r, drs(r)("String")) '指定字符表示
            Next
            Chart.AxisX.AnnoWithLabels = True '启用字符标示
            Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
            Chart.LegendVisible = True '显示图列
            Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
            Chart.Dock = 5
            p.addcontrol(Chart)
        Next
    End If
Next

老师，您先告诉我下步：下一步需要在Array1,Array2,Array3,Array4里继续加载chart以成图。先告诉我如何在Array1,Array2,Array3,Array4里继续加载chart？

参考23楼代码。

谢谢老师，可以了。

老师，我是用GroupTableBuilder方法生成的表GunErrorStatistics，是个临时表，在我正式的程序里提示找不到Source Number，就是下面这句代码，

查看一下表结构，看看列名是什么。

 

http://www.foxtable.com/webhelp/scr/0193.htm

 

多谢老师，可以了。

请问老师，我用下面代码删除tabcontrol的页面，提示：未找到类型“TabControl”的公共成员“Delete”。请问如何改代码，谢谢！