执行窗口命令后不能保存？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Tables("成绩总表竖表").ResumeRedraw
Tables("成绩总表竖表").StopRedraw
Dim Count As Integer
Dim kms As List(of String) = DataTables("成绩总表竖表").GetValues("科目")
For Each km As String In kms
    '以下设置学科成绩按全校排名和等级
    Dim drss As List(of DataRow)=DataTables("成绩总表竖表").Select("[科目]='" & km & "'", "分数 DESC ")
    count=0
    For n As Integer = 0 To drss.Count - 1 '遍历所有行
        Count = Count + 1
        If n > 0 AndAlso drss(n)("分数") = drss(n-1)("分数") Then '如果总分和上一行相同
            drss(n)("全校名次") = drss(n-1)("全校名次") '则排名等于上一行
        Else
            drss(n)("全校名次") =count '设置排名
        End If
        If drss(n)("全校名次")<=drss.Count *0.15 Then
            drss(n)("等级")="A"
        ElseIf drss(n)("全校名次")<=drss.Count *0.45 Then
            drss(n)("等级")="B"
        ElseIf drss(n)("全校名次")<=drss.Count *0.75 Then
            drss(n)("等级")="C"
        ElseIf drss(n)("全校名次")<=drss.Count *0.95 Then
            drss(n)("等级")="D"
        Else
            drss(n)("等级")="E"
        End If
    Next
Next
Tables("成绩总表竖表").ResumeRedraw

主题：执行窗口命令后不能保存？