以文本方式查看主题 - 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 |