主题：从临时表中提取数据

 参考

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

测试没问题

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 2
Series.X(0) = 2
Series.Y(0) = 9
Series.X(1) = 5
Series.Y(1) = 18

 不是有排序参数吗？根据x列排序就能找到了啊。

currentTable 指当前表

如果当前表筛选过了，就取其筛选条件，如果没有筛选过，就赋值为1=1

参考代码

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt|P190文件|*.p190|P1文件|*.p1"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
   
    For i As Integer = 0 To rs.Length - 1
        Dim str As String = System.Text.RegularExpressions.Regex.replace(rs(i), " +", chr(11))
        Dim cs() As String = str.Split(chr(11))
        output.show(str & cs.length)
        If cs.Length = 6 AndAlso cs(0).StartsWith("V") Then
            Dim dr As DataRow = DataTables("表A").Addnew()
            dr("第一列") = cs(0)
            dr("第二列") = cs(1)
            dr("第三列") = cs(2)
            dr("第四列") = cs(3)
        End If
    Next
End If
Tables("表A").ResumeRedraw

把空格和两个以上的空格，都替换成一个特殊字符chr(11)，然后根据这个特殊字符把各个内容分割开来。