Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有3514人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
awnu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:203 威望:0 精华:0 注册:2021/3/23 8:29:00
[求助]  发帖心情 Post By:2021/3/24 15:17:00 [只看该作者]

在做学生排名时,运行代码出现“在 Range 对象中,Min (506)必须小于或等于 max (-1)。”不知是什么原因?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/24 15:20:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
awnu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:203 威望:0 精华:0 注册:2021/3/23 8:29:00
  发帖心情 Post By:2021/3/24 15:26:00 [只看该作者]

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 & "排名"
        For n As Integer = 0 To drs.Count - 1
            Count = Count + 1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)(TotalName ) = drs(n-1)(TotalName ) 
            Else
                drs(n)(TotalName ) = Count
            End If
        Next
    Next 
Next
Tables("九年级").Sort = "总分 DESC"
Tables("九年级").ResumeRedraw

 回到顶部
帅哥哟,离线,有人找我吗?
awnu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:203 威望:0 精华:0 注册:2021/3/23 8:29:00
  发帖心情 Post By:2021/3/24 15:27:00 [只看该作者]

不知道问题出自哪儿?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/24 15:31:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看什么事件哪一句代码出错

 回到顶部