主题：分割文本文件

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