Dim r As Row
For i As Integer = 0 To Tables("订单").Rows.Count(True) - 1
r = Tables("订单").Rows(i,True)
If r.IsGroup
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = CurrentTable.Grid.Styles.Add("Borderline")
Dim rng As C1.Win.C1FlexGrid.CellRange = CurrentTable.Grid.GetCellRange(i+1,1, i+1,Tables("订单").Cols.Count)
cs1.backcolor = color.yellow
cs1.forecolor = color.red
cs1.Border.Color = color.red
cs1.Border.Direction = 1
rng.style = cs1
End If
Next
加好友 
发短信
Post By：2018/8/20 10:32:00 [显示全部帖子]
