- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为什么遍历表不能设置表样式?只能单独设置? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180865)
-- 发布时间：2022/10/18 19:41:00
-- 为什么遍历表不能设置表样式?只能单独设置?
For Each T1 As Table In Tables
If T1.NAME = "Task_Log" Then
T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
T1.SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
T1.SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
T1.SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)
T1.ListMode = True \'整行突出显示
T1.Refresh
OUTPUT.SHOW(T1.NAME)
End If
Next
\'For Each T1 As Table In Tables
\'If T1.NAME = "Task_Log" Then
\'T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
\'T1.SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
\'T1.SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
\'T1.SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)
\'T1.ListMode = True \'整行突出显示
\'T1.Refresh
\'OUTPUT.SHOW(T1.NAME)
\'End If
\'Next
Tables("Task_Log").SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
Tables("Task_Log").SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
Tables("Task_Log").SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
Tables("Task_Log").SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)
-- 发布时间：2022/10/18 20:26:00
--
注意代码顺序，先设置整行突出显示
For Each T1 As Table In Tables
If T1.NAME = "表A" Then
T1.ListMode = True \'整行突出显示
T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255, 136, 028, 028)