rce = rs
.RowOutlineLevel(1) = 1
.IsSubtotal(1) = True
For lngY = 1 To .Rows - 1
intT = Len(.TextMatrix(lngY, 0)) - Len(Replace(.TextMatrix(lngY, 0), ".", ""))
.RowOutlineLevel(lngY) = intT
.IsSubtotal(lngY) = True
Next
.OutlineCol = 0
.OutlineBar = flexOutlineBarSimpleLeaf
End With
Set VSFlexGrid1.DataSource = Rs''''这一步一定要有,
With VSFlexGrid1
.DataRefresh
.Sort = flexSortGenericDescending''''排序
End With
上一页 [1] [2] [3] [4] [5] |
