比如
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 < 6'前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