Dim cj As Double
Dim drs As List(of DataRow) = DataTables("表A").Select("学校='第一中学'","成绩 desc")
For i As Integer = 0 To drs.count - 1
Dim dr1 As DataRow = drs(i)
If i < 2'前6名
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Else
Dim dr2 As DataRow = DataTables("表C").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
Next
Dim cj As Double
Dim drs As List(of DataRow) = DataTables("表A").Select("学校='第二中学'","成绩 desc")
For i As Integer = 0 To drs.count - 1
Dim dr1 As DataRow = drs(i)
If i < 3'前6名
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Else
Dim dr2 As DataRow = DataTables("表C").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
Next
Dim cj As Double
Dim drs As List(of DataRow) = DataTables("表A").Select("学校='第三中学'","成绩 desc")
For i As Integer = 0 To drs.count - 1
Dim dr1 As DataRow = drs(i)
If i < 2'前6名
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Else
Dim dr2 As DataRow = DataTables("表C").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
Next
请问如何把他们合并到一起?