窗口的AfterLoad事件改为:
Functions.Execute("BuildGanttTable")
With Tables("窗口1_Table2").Grid
.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None '不显示焦点框
.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never '不高亮显示选定区
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell '每次只显示一个单元格
End With
Tables("窗口1_Table2").SetHeaderRowHeight(41,20)