'背景色和批注
If e.Table.DataTable.Type = 1 OrElse e.Table.DataTable.Type = 3
If e.Table.DataTable.DataCols.Contains("_Identify")
Dim dr As DataRow = DataTables("辅助_自由标记").Find("表名 = '" & e.Table.Name & "' and 行号 = '" & e.Row("_Identify") & "'")
If dr IsNot Nothing Then
'背景色
Dim Yanse As String = dr("背景")
Dim YSs() As String = Yanse.split("|")
For Index As Integer = 0 To YSs.Length - 1
Dim YSInfo() As String = YSs(Index).split(":")
If e.Col.Name = YSInfo(0) Then
Dim br2 As Brush = New SolidBrush(Color.FromARGB(YSInfo(1)))
Functions.Execute("ToYanse",e,br2)
End If
Next
End If
End If
End If
'启用全局表事件--------------------------------------------------↓
For Each dt As DataTable In DataTables
dt.GlobalHandler.DrawCell = True
dt.GlobalHandler.KeyDown = True
dt.GlobalHandler.CurrentChanged = True
Next
加好友 
发短信
Post By：2020/10/6 11:40:00 [只看该作者]
