菜单代码改为
For Each dt As Table In Tables '记录窗口
Dim rng As C1.Win.C1FlexGrid.CellRange = dt.Grid.GetCellRange(0, 1, 0, dt.cols.Count)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = dt.Grid.Styles.Add("样式1")
cs1.Font = new font("宋体", 9)
rng.style = cs1
If dt.grid.parent Is Nothing Then Continue For
For Each a As OBJECT In dt.grid.parent.controls
For Each b As OBJECT In a.controls
'output.show(b.text)
b.font = New Font("楷体",14)
If b.text = dt.name Then
Dim d = b.controls(0).controls(0)
rng = d.GetCellRange(0, 0, d.rows.count-1, 0)
cs1 = d.Styles.Add("样式1")
cs1.Font = new font("宋体", 9)
rng.style = cs1
End If
Next
Next
Next
加好友 
发短信
Post By：2016/9/7 14:40:00 [显示全部帖子]
