主题：怎么设置按纽代码

“查询”，“删除”“插入”“撤销”“筛选”“关闭” 以上几个按纽的代码是怎么设置的？

按钮标题	Click事件代码
删除行	With Tables("订单")     If .Current IsNot Nothing Then         .Current.Delete     End If End With
锁定行	With Tables("订单")     If .Current IsNot Nothing Then         .Current.Locked = True     End If End With
取消锁定	With Tables("订单")     If .Current IsNot Nothing Then         .Current.Locked = False     End If End With
上一行	With Tables("订单")     .Position = .Position - 1 End With
下一行	With Tables("订单")     .Position = .Position + 1 End With

可是你这里还没有“查询”，“插入”“撤销”“筛选”“关闭”等几个的代码？这些代码怎么设置呀

一个例子

本课的示例文件为CaseStudy目录下的“窗口筛选.table”。

Foxtable本身的筛选功能已经非常强大，不过如果自己设计一个筛选窗口，用起来也许更顺手。
本课的目的就是设计一个下图所示的筛选窗口：

设计步骤

1、插入一个组合框，改名为“cmbProduct”，列表项目设为“PD01|PD02|PD03|PD04|PD05”，用于输入要筛选的产品。
2、插入一个组合框，改名为“cmbCustomer”，列表项目设为“CS01|CS02|CS03|CS04|CS05”，用于输入要筛选的客户。
3、插入一个组合框，改名为“cmbEmployee”，列表项目设为“EP01|EP02|EP03|EP04|EP05”，用于输入要筛选的雇员。
4、插入一个日期输入框，改为名“StartDate”，用于输入开始日期。
5、插入一个日期输入框，改为名“EndDate”，用于输入结束日期。
6、插入三个按钮，标题和Click事件代码按下表所示设置。

标题	Click事件代码
清除条件	e.Form.Controls("cmbProduct").Value = Nothing e.Form.Controls("cmbCustomer").Value = Nothing e.Form.Controls("cmbEmployee").Value = Nothing e.Form.Controls("StartDate").Value = Nothing e.Form.Controls("EndDate").Value = Nothing
撤销筛选	Tables("订单").ApplyFilter = False
开始筛选	Dim Filter As String With e.Form.Controls("cmbProduct")     If .Value IsNot Nothing Then         Filter = "产品 = '" & .Value & "'"     End If End With With e.Form.Controls("cmbCustomer")     If .Value IsNot Nothing Then         If Filter > "" Then             Filter = Filter & " And "         End If         Filter = Filter & "客户 = '" & .Value & "'"     End If End With With e.Form.Controls("cmbEmployee")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "雇员 = '" & .Value & "'"     End If End With With e.Form.Controls("StartDate")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 >= #" & .Value & "#"     End If End With With e.Form.Controls("EndDate")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 <= #" & .Value & "#"     End If End With If Filter > "" Then     Tables("订单").Filter = Filter End If

7、窗口类型设为独立，自动打开属性设为True。

设计中的窗口：

　

我这些是在主窗口中设置这些按纽的，主窗口的作用主要是能输入资料，及查找资料，所以请问一下设置“查询”是怎么设置

先看帮助。