主题：求个代码

Dim txt As String = "客户"
Dim tbl As Table = Tables("窗口1_Table1")
tbl.Filter = "客户"

 

老大，我在窗口1 里建立一个Table1 Table控件的“作为副本”属性设置为True，“允许编辑”属性设置为False，并绑定到人才表。

我打算打开窗口1会自动筛选出客户的记录，我在AfterLoad里加代码应该怎么加啊。

 

怎么改都通不过啊。

问题是这个只是一个副本，用下面的命令只对主表格有用，也就是“作为副本”属性设置为False好用，但是“作为副本”属性设置为False后，窗口中的快捷键又不好使。

Tables("订单").Filter = ""

Tables("订单").Filter = "客户"  只对主表有用。而 Tables("窗口1_Table1").Filter = "客户" 代码又不好使。

主表可以这样？

 

Tables("订单").Filter = "客户"

 

那是不可能的！ 你可测试清楚了哦。

 

主表怎么筛选，副本就怎么筛选，换个表名而已

现在的题是这样的，我现在是这样设置，作为副本为 True  我现在目的就是打开这个表后，只显示该表资料分类为客户的记录

也就是窗口1中的Table1，筛选资料分类为“客户”的记录，打开就筛选。

 

而我用Tables("人员管理").Filter = "[资料分类] = '客户'" 只筛选表里面的，不筛选窗口1里面的啊。用什么代码。

此主题相关图片如下：image001.png


此主题相关图片如下：image003.png

Tables("窗口1_table1").Filter = "[资料分类] = '客户'"

不用了，我自己解决了 谢谢大家 我自己弄的代码是

 

Tables("客户管理_Table1").Filter = "资料分类 Like '客户'"

 

"[资料分类] = '客户'"  这个代码是错的。

Tables("客户管理_Table1").Filter = "资料分类 = '客户'" 这个也对