主题：[求助] 查询按钮公式

我有以下一个“查询”按钮的命令，一点击这个按钮，那么他会进行筛选出符合条件的内容；如果我是希望不要继续筛选、只是将光标移到到符合条件的行上，怎么修改这个命令？

如果有多行呢？

如果只有一行那么将光标移动到该行、如果有多行就进行筛选

 你可以参考这个方法。

 

http://www.foxtable.com/help/topics/0553.htm

 

 

Dim 输入查询日期 As Date = e.form.controls("输入查询日期").Value
Dim Filter As String =  "[日期] = #"& 输入查询日期 & "#"
If Tables("网维中心值班表").Compute("count(_Identify)", filter) = 1 Then
    Tables("网维中心值班表").Position = Tables("网维中心值班表").FindRow(filter, 0, False)
Else
    Tables("网维中心值班表").filter = filter
End If

我有有个  右键菜单 中有一个查询公式；如果查询不到任何内容、那么表中显示的就是全空；但这是我是无法使用右键的，那么我也就无法使用右键的取消筛选按钮进行取消筛选；我该如何确保在查询不到内容的时候弹出提示而不进行任何操作？

Dim 输入查询日期 As Date = e.form.controls("输入查询日期").Value
Dim Filter As String =  "[日期] = #"& 输入查询日期 & "#"
Dim count As Integer = Tables("网维中心值班表").Compute("count(_Identify)", filter)
If count  = 1 Then
    Tables("网维中心值班表").Position = Tables("网维中心值班表").FindRow(filter, 0, False)
Else If count = 0 Then
    msgbox("没查到")
Else
    Tables("网维中心值班表").filter = filter
End If

如果我使用的是    Syscmd.Filter.Contains()   这个命令（就是打开系统自动的窗口）；该怎么做？

 去设置表的beforeFilter

 

Dim count As Integer = e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
    msgbox("没有查找到")
    e.cancel = True
End If