Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问在第一行做了汇总行后，怎么判断下第一行是不是汇总行


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

主题：请问在第一行做了汇总行后，怎么判断下第一行是不是汇总行
帅哥哟，离线，有人找我吗？
houseer
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：325 积分：2752 威望：0 精华：0 注册：2015/2/3 19:48:00 		请问在第一行做了汇总行后，怎么判断下第一行是不是汇总行  发帖心情 Post By：2020/1/12 12:52:00 [只看该作者]

  我用这个方法。给下面的状态栏做了汇总显示。
  http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=40853

  但是我如果我窗体上的这个表做了汇总的话，  在这个表的最上面会插入一行汇总行。
  
  上面的状态栏汇总的数据就会错一行。需要判断一下第一行是不是汇总行。

   请问这个判断第一行是不是汇总行的语句怎么写？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107385 积分：546198 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/12 20:46:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
houseer
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：325 积分：2752 威望：0 精华：0 注册：2015/2/3 19:48:00 		  发帖心情 Post By：2020/1/13 11:10:00 [只看该作者]

下面这段代码在全局表事件下写的：  实际用的时候，在汇总模式下，显示的会有问题。我这的汇总行在第一行，然后随便选一个格，就会汇总这个格下面那一格的数。 
老师帮看看怎么改一下。

StatusBar.Message3 = ""
Dim s As String
Dim sum As Double
If CurrentTable IsNot Nothing Then
    If e.Table.RowSel < 0 OrElse e.Table.ColSel < 0 Then
        Return
    End If
    Dim l As Integer = e.NewRange.LeftCol
    For Each c As Col In CurrentTable.Cols
        sum = 0
        If c.Index = l Then
            If c.IsNumeric Then
                For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
                    sum + = CurrentTable.Rows(i)(c.Name)
                Next
                s + = "合计:" & "  " & sum & "  "
            End If
        End If
    Next
    StatusBar.Message3 =  "当前区域合计:" & "  总行数  " & e.NewRange.BottomRow - e.NewRange.TopRow + 1 & "  " & s
Else
    StatusBar. Reset()
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107385 积分：546198 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 11:21:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
houseer
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：325 积分：2752 威望：0 精华：0 注册：2015/2/3 19:48:00 		  发帖心情 Post By：2020/1/13 11:49:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:状态栏当前区域合计.table


进去之后，点一下切换汇总模式。 下面的状态栏的数据就不对了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107385 积分：546198 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 14:49:00 [只看该作者]

        If c.Index = l Then
            If c.IsNumeric Then
                For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
                    If CurrentTable.Rows(i,True).IsGroup Then Continue For
                    sum += CurrentTable.Rows(i)(c.Name)
                Next
                s + = "合计:" & "  " & sum & "  "
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
houseer
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：325 积分：2752 威望：0 精华：0 注册：2015/2/3 19:48:00 		  发帖心情 Post By：2020/1/13 16:49:00 [只看该作者]

  老师照您这样改了还是不对， 选中汇总行倒是不报错了。  但是数加的不对，还是错行。。

  而且选中一整列的时候还是报错。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107385 积分：546198 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 17:23:00 [只看该作者]

        If c.Index = l Then
            If c.IsNumeric Then
                For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
                    If CurrentTable.Rows(i,True).IsGroup Then Continue For
                    sum += CurrentTable.Rows(i,True)(c.Name)
                Next
                s + = "合计:" & "  " & sum & "  "
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
houseer
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：325 积分：2752 威望：0 精华：0 注册：2015/2/3 19:48:00 		  发帖心情 Post By：2020/1/13 17:42:00 [只看该作者]

  完美谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询