主题：计划管理小技巧

这计划管理增加一个计划，代码如下：

If MainTable.focused    
    If DataTables(MainTable.name).SysStyles("Alternate").BackColor = Color.white  Then
        DataTables(MainTable.name).SysStyles("Alternate").BackColor = Color.lightblue

    End If
Else
        DataTables(MainTable.name).SysStyles("Alternate").BackColor = Color.white  
End If

这样，鼠标点击当前表（或你指定表）后，立刻就显示交替行了，当焦点离开表后就取消了交替行显示了。

 

 

此主题相关图片如下：jth.gif

呵呵，可能用ApplicationIdle事件更好

ApplicationIdle事件，在什么地方，找不到呢？

同问, 在帮助文件中搜索不到ApplicationIdle的东东.

顶！

惭愧

 

我放在system idle(ApplicationIdle)中，出现问题：1、单击不能出现交替行，得双击行（即在单元格出现一闪一闪的“|”时，才出现交替行）；2、切换主表后，再返回到原表，还是有交替行，不能自动消失。

1、我这里正常。 2、再返回到原表时，焦点已经在表中，有交替行是正确。