以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段筛选代码,请帮忙看下,哪里出问题了?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133532)

--  作者:fengwenliuyan
--  发布时间:2019/4/15 22:44:00
--  这段筛选代码,请帮忙看下,哪里出问题了?
在当前表中,按条件筛选指定行,并定位在当前选定行的集合的最后一行?
Dim Filter As String

With e.Form.Controls("客户")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = \'" & .Value & "\'"
    End If
End With

If e.Form.Controls("已编").Checked = True \' 如果修改状态选择了"修改"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已编 = True "
End If

If Filter > "" Then
\'    CurrentTable.filter = Filter
CurrentTable.DataTable.LoadFilter = ""
CurrentTable.DataTable.Load
CurrentTable.Position = CurrentTable.Rows.Count - 1
End If

CurrentTable.Position = CurrentTable.Rows.Count - 1

e.Form.Controls("客户").Value = Nothing
e.Form.Controls("已编").Checked = false

--  作者:有点蓝
--  发布时间:2019/4/15 23:10:00
--  
先把这里的帮助认真看一看:http://www.foxtable.com/webhelp/scr/1928.htm