主题：关于整行突出

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

 

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

 

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

 

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

 

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

窗口中table控件，只有在窗口打开的时候，才会在Tables集合中。

 

有可能有的窗口没有打开，从而没有设置到 tb.ListMode = True

 

你要把代码 tb.ListMode = True 设置到每个窗口的afterload中去

好的，谢谢老师。

 

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

 

 

参考这里 http://www.foxtable.com/help/topics/1577.htm

 

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

 

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

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

 

哦，要设置整行突出的。

 

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
For Each t As Table In Tables
    t.ListMode = True
Next

  If e.Row.Equals(e.Table.Current) Then