以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]下拉窗口表中选定行的背景颜色设计对焦点单元格不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151094)

--  作者:hzcaqjf
--  发布时间:2020/6/15 11:07:00
--  [求助]下拉窗口表中选定行的背景颜色设计对焦点单元格不起作用
对下拉窗口表选定行的背景颜色设计(如图a):
窗口下拉后,表中选定行的焦点单元格背景颜色没有变化,选定行其它单元格的背景颜色达到了设计要求(如图b):
图片点击可在新窗口打开查看此主题相关图片如下:a.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:b.png
图片点击可在新窗口打开查看

用代码也不起作用:
Dim t As Table = e.Form.Controls("Table1").Table
t.UseVisualStyle = False
t.ListMode = True
t.DataTable.sysstyles("CurrentRow").BackColor = Color.Salmon

[此贴子已经被作者于2020/6/15 11:10:42编辑过]

--  作者:有点蓝
--  发布时间:2020/6/15 12:25:00
--  
到drawcell事件处理吧

If e.Col.Index = e.Table.ColSel AndAlso e.Row.Index = e.Table.RowSel Then
e.Table.DataTable.AddUserStyle("a",Color.salmon, Color.black)
e.Style = "a"
End If