主题：关于列隐藏

Dim t As Table=Tables("Account_Setup_table1")
t.Cols.remove("ID")

 

Table1是窗口表，SQLTABLE

Table1的数据来自Access数据库

我早Table1的Afterload 事件中加入上述代码，目的是想隐藏"ID"列，但是执行后ID列仍然在，怎么回事呢？

Dim t As Table=Tables("Account_Setup_table1")
If T.Cols.Contains("id") Then
    t.Cols.Remove("id")
End If

或者

 

T.Cols("id").Visible = False

奇怪？jianjingmaoyi，你的代码放到Doubleclick事件下能得到结果，但是放在Afterload事件下就不行。

怎么回事呢？是不是因为我的ID字段是关键字段哦？

不会没有效的，除非你在这段代码之后，又重新生成了这个表，例如执行了Load、Fill或者动态增加或者删除了列。

Remove去掉的列，一旦表结构有所变化，又会重新出现。

那如果是老大的说法,只能用第二段.

我在窗口表Table1的属性->基本->select语句  中添加了select * from {Card_Set}，是不是因为这个造成的哦？

不知道你的代码执行是怎么样的,如果是fill加载的,那么你要好好看看,原则上是先执行加载,后执行隐藏.