主题：成绩排名

Dim dt1 As DataTable = DataTables("成绩分析_Table1")

For Each dc As DataCol In dt1.DataCols
    Dim Tel As String = dc.Caption
    If Tel .Contains("_分数") Then
        Dim Parts() As String = Tel.Split("_")

lst.add(Parts(0) & "_名次")

    End If
Next

for each s as string in lst

        dt.DataCols.Add(s, Gettype(Double))

next