标题：求逻辑列的窗口筛选代码写法。

1楼

zhaotao 发表于：2011/6/20 9:32:00

示例文件为CaseStudy目录下的“窗口筛选.table”中，如果要筛选一逻辑列代码应怎样修改？

2楼

狐狸爸爸 发表于：2011/6/20 9:34:00

"逻辑列名 = True"

3楼

zhaotao 发表于：2011/6/20 9:42:00

我在窗口中加了一复选框控件CheckBox1就是不知怎样引用这个复选框的值？

4楼

blackzhu 发表于：2011/6/20 10:27:00

Dim Filter As String
With e.Form.Controls("复选框名称")

        Filter = "逻辑列名 = True"

End With

If Filter > "" Then
Tables("表名").Filter = Filter
End If

试试这样

5楼

狐狸爸爸 发表于：2011/6/20 10:30:00

Dim Filter As String
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If chk.Checked Then
filter = "某列 = True"
Else
Filter = "某列 = False"
End If

6楼

zhaotao 发表于：2011/6/20 10:37:00

多谢两位！我先试试。

共6 条记录, 每页显示 10 条, 页签: [1]