主题：分割文本文件

Dim  Name0 As String
Dim drs3 As List(Of DataRow)

drs3=DataTables("表A").Select("lname is not null")
For Each  dr As DataRow In drs3
    Dim  nr As Row = Tables("表D").AddNew
    nr("LName")= dr("LName")
    nr("point")= dr("SPoint")
    nr = Tables("表D").AddNew
    nr("LName")= dr("LName")
    nr("point")= dr("EPoint")
Next
drs3=DataTables("表C").Select("lname is not null")

For Each  dr As DataRow In  drs3
    Dim  nr As Row = Tables("表D").AddNew
    nr("LName")= dr("LName")
    nr("point")= dr("SPoint")
    nr("X")= dr("SPointX")
    nr("Y")= dr("SPointY")
Next

 

请具体说明你的逻辑，哪里达不到具体说明？

代码没问题啊，数据拷贝过去了啊。

 

细节自己调整。

Dim  Name0 As String
Dim drs3 As List(Of DataRow)

drs3=DataTables("表A").Select("lname is not null")
For Each  dr As DataRow In drs3
    Dim  nr As Row = Tables("表D").AddNew
    nr("LName")= dr("LName")
    nr("pointnumber")= dr("SPoint")
    nr = Tables("表D").AddNew
    nr("LName")= dr("LName")
    nr("pointnumber")= dr("EPoint")
Next
For Each dr As DataRow In DataTables("表D").Select("lname is not null")
    Dim fdr As DataRow = DataTables("表B").find("lname='" & dr("lname") & "' and pointnumber='" & dr("pointnumber") & "'", "x desc")
    If fdr IsNot Nothing Then
        dr("x") = fdr("x")
        dr("y") = fdr("y")
    End If
Next

 

'-----------------------------------------------------------将生产坐标数据成图---------------------------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("NList") '定义一个变量t引用数据表
Forms("progressmap").open
Dim vnames As String() = {"WM", "Voy"}
Dim Colors As Color() = {Color.blue, Color.red}
Chart =Forms("progressmap").Controls("progressmap")
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
For i As Integer = 0 To vnames.length-1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text =VNames(i) ' Name '设置图系的标题
   
    Dim drs As List(Of DataRow) = t.DataTable.Select("[VName]='" & VNames(i) & "'")
   
    Series.Length = drs.Count '设置图系的长度
    For r As Integer = 0 To drs.Count - 1
        Series.X(r) = val(drs(r)("PointX"))
        Series.Y(r) = val(drs(r)("PointY"))
       
       
        Series.LineColor = Colors(i)
        Series.LineThickNess=2.5
       
    Next
   
    Chart.LegendVisible = True '显示图列
   
   
   
    Series.MarkShape = MarkShapeEnum.None
    Chart.LegendCompass= CompassEnum.South
Next

 

看不懂你的逻辑，请做一个对应例子说明。或者，就你给的例子说明怎么不对啊。

不生成就行啊

 

'-----------------------------------------------------------将生产坐标数据成图---------------------------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("NList") '定义一个变量t引用数据表
Forms("progressmap").open
Dim vnames As String() = {"WM", "Voy"} ',"Rock"}
Dim Colors As Color() = {Color.blue, Color.red} ',Color.green}
Chart =Forms("progressmap").Controls("progressmap")
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
For i As Integer = 0 To vnames.length-1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text =VNames(i) ' Name '设置图系的标题
   
    Dim drs As List(Of DataRow) = t.DataTable.Select("[VName]='" & VNames(i) & "'")
   
    Series.Length = drs.Count '设置图系的长度
    For r As Integer = 0 To drs.Count - 1
        Series.X(r) = val(drs(r)("PointX"))
        Series.Y(r) = val(drs(r)("PointY"))
       
       
        Series.LineColor = Colors(i)
        Series.LineThickNess=2.5
       
    Next
   
    Chart.LegendVisible = True '显示图列
            
    Series.MarkShape = MarkShapeEnum.None
    Chart.LegendCompass= CompassEnum.South
Next

 

不可以，没办法。

 

要不你就不要显示图例，然后自己加入label显示红色、蓝色的提示。

VNumbers = DataTables("Operation").GetValues("VName", "[Date]=#" & selecteddate & "#")   

你试试执行，看表格显示什么数据。

 

Tables("Operation").Filter = "[Date]=#" & selecteddate & "#"