Tables("学生成绩汇总表").StopRedraw
Dim bjs As List(Of String) = DataTables("学生成绩汇总表").GetValues("班级","[班级] Is Not NULL")
Dim Count As Integer
Dim ColNames() As String = {"语文","数学","英语","化学","物理","政治","历史","地理","生物","总分"}
Dim TotalName As String
For Each ColName As String In ColNames '
For i As Integer = 0 To bjs.Count -1
Dim drs As List(Of DataRow) = DataTables("学生成绩汇总表").Select("[班级] = '" & bjs(i) & "'", ColName & " DESC")
Count = 0
TotalName = ColName & "班级排名"
……
重复的变量换个不同名称
加好友 
发短信
Post By：2021/7/19 20:30:00 [显示全部帖子]
