如何实现一键隐藏或显示所有分组后明细信息

收藏

请教如下问题：
如何实现一键隐藏或显示所有分组后明细信息，而不是一个一个去按分组信息前的“+/—”按钮。
图1：显示所有分组后明细信息

图2：隐藏所有分组后明细信息

LeeDongmei · LeeDongmei

图1：显示所有分组后明细信息

新图片(14).png (168.51 KB, 下载次数: 130)

LeeDongmei · LeeDongmei

图2：隐藏所有分组后明细信息

新图片(15).png (161.94 KB, 下载次数: 137)

ZenosZeng · ZenosZeng

可以通过循环调用 ExpandRow 方法来折叠/展开所有行。

LeeDongmei · LeeDongmei

我是采用此种方法处理，但没有反应。
代码如下：
Public Sub ExpandBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExpandBtn.Click
      ' programmatically expand rows, in this case all rows
      Dim i As Integer
      For i = 0 To FpSpread1.Sheets(FpSpread1.ActiveSheetViewIndex).RowCount - 1
         FpSpread1.Sheets(FpSpread1.ActiveSheetViewIndex).ExpandRow(i, True)
      Next i
      'FpSpread1.ActiveSheetView.ExpandRow(-1, True)

End Sub

我试了一下，通过代码即使展开一条也不能实现。

LeeDongmei · LeeDongmei

追加说明：
我的分组是用如下方法实现的：
      FpSpread1.ActiveSheetView.AllowGroup = True

      Dim gi As New FarPoint.Web.Spread.GroupInfo
      gi.BackColor = Color.LightSkyBlue
      Dim gi2 As New FarPoint.Web.Spread.GroupInfo
      gi2.BackColor = Color.LightGoldenrodYellow
      Dim gic As New FarPoint.Web.Spread.GroupInfoCollection()
      gic.AddRange(New FarPoint.Web.Spread.GroupInfo() {gi, gi2})

      FpSpread1.ActiveSheetView.GroupInfos.Add(gic(0))
      If gic.Contains(gi) Then
         gic.Remove(gi)
      End If

      FpSpread1.ActiveSheetView.GroupFooterInfos.Add(gic(0))
      If gic.Contains(gi) Then
         gic.Remove(gi)
      End If
      FpSpread1.ActiveSheetView.GroupFooterVisible = True
      FpSpread1.ActiveSheetView.GroupBarHeight = 20

ZenosZeng · ZenosZeng

可以使用下面的代码：

Protected Sub Button1_Click(sender As Object, e As EventArgs)
Dim gdm As FarPoint.Web.Spread.Model.GroupDataModel = TryCast(FpSpread1.ActiveSheetView.DataModel, FarPoint.Web.Spread.Model.GroupDataModel)
If gdm IsNot Nothing Then
For Each item As FarPoint.Web.Spread.Model.Group In gdm.Groups
item.Expanded = True
Next
End If
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs)
Dim gdm As FarPoint.Web.Spread.Model.GroupDataModel = TryCast(FpSpread1.ActiveSheetView.DataModel, FarPoint.Web.Spread.Model.GroupDataModel)
If gdm IsNot Nothing Then
For Each item As FarPoint.Web.Spread.Model.Group In gdm.Groups
item.Expanded = False
Next
End If
End Sub

复制代码

LeeDongmei · LeeDongmei

多谢版主！
顺利实现。:strong:

ZenosZeng · ZenosZeng

好的

		自动登录	找回密码
密码			立即注册

如何实现一键隐藏或显示所有分组后明细信息

8 个回复

活字格认证

微信认证勋章

元老葡萄

圣诞拼拼乐

讲师达人

悬赏达人