以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  C1FlexGrid如何收缩节点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123389)
--  作者：rjh4078
--  发布时间：2018/8/13 19:13:00
--  C1FlexGrid如何收缩节点
Dim t As Table=Tables("生产计划单")
t.Fill("sele ct * from {计划明细} where [_Identify]=0",Functions.Execute("返回数据源"),True)
TblBase = t.Grid
With TblBase    
    .SubtotalPosition = C1FlexGrid.SubtotalPositionEnum.AboveData
    .AllowFreezing = C1FlexGrid.AllowFreezingEnum.None
    .AllowResizing = C1FlexGrid.AllowResizingEnum.Columns
    .VisualStyle = C1FlexGrid.VisualStyle.System
    .Tree.Column = 1
    .Tree.LineStyle = Drawing2D.DashStyle.Dash
    .Tree.Style = C1FlexGrid.TreeStyleFlags.CompleteLeaf
    \' .Tree.NodeImageCollapsed = GetImage("0.png")
    \' .Tree.NodeImageExpanded = GetImage("1.png")
    .Cols(0).AllowResizing = False
    .Cols(0).TextAlign = C1FlexGrid.TextAlignEnum.CenterCenter
End With

后面是生成节点的代码，如何在生成节点以后将父节点全部收缩起来？
--  作者：有点甜
--  发布时间：2018/8/14 9:00:00
--  

比如

 

Tables("表A").Grid.Tree.Show(0)

 

细节自己查看文档

 

https://www.grapecity.com.cn/docs/ComponentOne/FlexGrid/

 

http://helpcentral.componentone.com/nethelp/c1flexgrid/componentoneflexgrid.html