主题：datatable排序问题

参考

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

试试这样

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

尽量不要在一个事件写那么多行代码，如果是多个独立的功能，建议分拆成一个个函数执行。

如果列名不多，可以直接写，如

DataTables("表A").DeleteFor("第一列 is null or 第二列 is null")

没看懂你要做什么。

你哪里不会做哪里有问题？

图表根据什么生成？最后要做到什么效果？

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 & "'")'
            tabs.tabpages.add(na2, na2)
           
        Next
    End If
Next

1、先看17楼；

2、最终要做成什么样？截图/画图 说明。你那个图表，不是动态的时候如何生成？不会生成画图说明。

没看懂你要生成什么样的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