'获得所有班级名称,保存在集合中 Dim bjs As List(Of String) = DataTables("表A").GetValues("凭证编号") For Each bj As String In bjs '获得该班级的全部行,按总分降序排序 Dim drs As List(Of DataRow) = DataTables("表A").Select("凭证编号 = '" & bj & "'", "_Identify") For n As Integer = 0 To drs.Count - 1 '遍历所有行 drs(n)("行号") = n+1 Next Next
加好友 
发短信
Post By：2019/6/20 21:56:00 [显示全部帖子]
