| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如果要加一个条件：筛选的结果必须是“用户名”列不为空的行，这代码该怎么改？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133877) |
| -- 作者：fengwenliuyan -- 发布时间：2019/4/22 17:40: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 Filter > "" Then CurrentTable.filter = Filter End If CurrentTable.Position = CurrentTable.Rows.Count - 1
|
| -- 作者：有点甜 -- 发布时间：2019/4/22 17:43:00 --
Dim Filter As String = "用户名 is not null"
|
| -- 作者：fengwenliuyan -- 发布时间：2019/4/22 17:50:00 -- 回复：（有点甜） Dim Filter As String = "用... 要是这段“全显”按钮的代码，也要判断“用户名”列不为空呢？ If CurrentTable.DataTable.Name = "出库明细表" Then \'如果选择的主表是订单表 CurrentTable.DataTable.LoadFilter = "" CurrentTable.DataTable.Load CurrentTable.Position = CurrentTable.Rows.Count - 1 End If e.Form.Controls("客户").Value = Nothing |
| -- 作者：有点甜 -- 发布时间：2019/4/22 17:56:00 -- CurrentTable.DataTable.LoadFilter = "用户名 is not null" |