主题：关于整行突出

如何实现所有窗口中的所有表都整行突出？

 

在项目 AfterOpenProject 事件编写以下代码

 

For Each tb As Table In Tables
    tb.ListMode = True
Next

 

这段代码好象只在程序的第一个窗口有效，切换窗口以后（即使再回到这个窗口），整行突出都会失效。

 

难道只能在每一个窗口写代码来实现？

好的，谢谢老师。

 

再请教一下，如何用代码来指定整行突出中的“背景色”和“文字色”？

 

Dim clr1 As Color = Color.FromARGB(179,255,255)
Dim clr2 As Color = Color.FromARGB(255,255,255)
For Each dt As DataTable In DataTables
    dt.SysStyles("CurrentRow").BackColor = clr1
    dt.SysStyles("ForeColor").BackColor = clr2
Next

 

以上代码，为什么文字色无效啊？

我知道错哪了，不好意思，老师，呵呵。