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
后面是生成节点的代码，如何在生成节点以后将父节点全部收缩起来？
加好友 
发短信
Post By：2018/8/13 19:13:00 [只看该作者]
