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)