Dim t As Table = Tables ("中心小学自测成绩表")
For i As Integer = t.TopRow To t.BottomRow
For Each c As Col In Tables ("中心小学自测成绩表").cols
If t.Rows(i).isnull(c.分数) = False Then
dr1(dr2("学科")) = t.Rows(i)(dr2("分数"))
End If
Next
Next
Dim t As Table = Tables ("中心小学自测成绩表")
For i As Integer = t.TopRow To t.BottomRow
Dim c As Col = Tables("中心小学自测成绩表").Cols("分数")
If t.Rows(i).isnull(c) = False Then
' dr(c.Name) = t.Rows(i)(c.Name)
dr1(dr2("学科")) = t.Rows(i)(dr2("分数"))
End If
Next
Next
Next
[此贴子已经被作者于2020/11/19 21:54:49编辑过]