主题：[求助]对第一个显示列DrawCell着色，应该怎么办

对第一个显示列DrawCell着色，应该怎么办 ？

为了提高效率，可以用一个全局变量，将第一个显示列保存在这个全局变量中。

 

 

可我的显示隐藏 用是的是 系统命令，Syscmd.Row.ShowHideRows()，而且列位置是可以拖动的，该如何 获取 第一个显示列？

遍历列，判断是否可见，试试看可不可以

for i as integer = 0 tables("xxx").cols

    if tables("xxx").cols(i).Visible then

        MessaGEBOX.SHOW("第一个显示列是："& tables("xxx").cols(i))

    end if

next

那如何监测   Syscmd.Row.ShowHideRows() 事件

DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
If e.Col.Index = 0 Then
    e.Style = "a"
End If

DrawCell  ‘RowColorShow 着色开关，MaxProcessNum，最终进度

If RowColorShow Then  

    If e.Col.Index = 0  AndAlso e.Row.IsNull("流程进度") = False Then

        e.StartDraw()

        Dim Width As Integer = (e.Width - 2 ) * e.Row("流程进度") \ MaxProcessNum

        e.Graphics.FillRectangle(Brushes.SkyBlue,e.x + 1,e.y + 1, Width, e.Height - 2)

        e.EndDraw()

    End If

End If

If e.Col.Index = 0 ，切换显示隐藏后不行

 

1、遍历列，找到第一个可视列，获取列名

 

后面只要判断一下是单元格是否是这一列的就行了

DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
Dim lst As New List(Of Integer)
For i As Integer = 0 To e.Table.Cols.Count - 1
    If e.Table.Cols(i).Visible = True AndAlso lst.Contains(i) = False Then
        lst.Add(i)
    End If
Next
Dim str() As Integer = lst.ToArray
Array.Sort(str)
If e.Col.Index = str(0) Then
    e.Style = "a"
End If