这个可以正常显示,但是发现不能点击界面按钮了。估计是写在了drawcell里面太频繁导致鼠标移入自定义下拉菜单后,点击了不出现下拉菜单。
有什么其他简单增加单元格下划线的办法么?
下面代码注释掉,正常运行;
加上,则显示下划线,但是界面菜单假死
If e.Row.IsGroup=True Then
e.style="group"
'Dim cs1 As C1.Win.C1FlexGrid.CellStyle = CurrentTable.Grid.Styles.Add("Borderline")
'Dim cs2 As C1.Win.C1FlexGrid.CellStyle = CurrentTable.Grid.Styles.Add("Borderline1")
'Dim rng As C1.Win.C1FlexGrid.CellRange = CurrentTable.Grid.GetCellRange(e.Row.Index+2,1, e.Row.Index+2,CurrentTable.Cols.Count-1)
'Dim rng2 As C1.Win.C1FlexGrid.CellRange = CurrentTable.Grid.GetCellRange(e.Row.Index+2,CurrentTable.Cols.Count-1, e.Row.Index+2,CurrentTable.Cols.Count)
'
'cs1.Border.Color = color.black
'cs1.Border.Direction = 1
'cs1.border.Width=2
'cs2.Border.Color = color.black
'cs2.Border.Direction = 1
'cs2.border.Width=2
'cs1.TextAlign=C1.Win.C1FlexGrid.TextAlignEnum.LeftCenter
'cs2.TextAlign=C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
'rng.style = cs1
'rng2.style = cs2
End If