主题：[求助]关于窗口显示切换及鼠标移动行样式并存

 
此主题相关图片如下：01.png


此主题相关图片如下：02.png

功能：鼠标滑过行高亮标识

事件：MouseEnterCell

代码：vars("t") = e.Table.Name

vars("r") = e.Row.Index

e.Table.Refresh

事件：MouseLeaveCell

代码：

vars("t") = Nothing

vars("r") = -1

事件：DrawCell

If e.Table.Name = vars("t") And e.Row.Index = vars("r") Then

e.Table.DataTable.AddUserStyle("样式1",Color.WhiteSmoke,Color.black)

e.Style = "样式1"

End If

备注：把e.Table改成  CurrentTable 也一样报错