如果你需要这个功能的话, 那你要在每一个表都要加一个颜色列了
然后把上面的
Dim Tbl As Table = Tables("表A")
改为
Dim Tbl As Table = CurrentTable
就可以实现功能了
加好友 
发短信
Post By：2012/8/3 15:27:00 [显示全部帖子]
