Foxtable(狐表)用户栏目专家坐堂 → 帮助中"自定义录入界面之三"模糊筛选求助


  共有2213人关注过本帖树形打印复制链接

主题:帮助中"自定义录入界面之三"模糊筛选求助

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
帮助中"自定义录入界面之三"模糊筛选求助  发帖心情 Post By:2018/5/29 8:42:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:广西1.jpg
图片点击可在新窗口打开查看
其中,DropDownOpened的原代码如下:
------------------------------------
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
If txt = "" Then
    tbl.Filter = "停用=false"
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "停用=false and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
-----------------------------------------------

按照我图片的期望,是不是理解成加多后面红色字体的代码段上去,但如何加呢?望老师解答。【 tbl.Filter = "停用=false and A(配送公司)=B(配送公司) and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"】


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/29 8:57:00 [只看该作者]

tbl.Filter = "停用=false and 配送公司='" & e.form.dropTable.current("配送公司") & "' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
[此贴子已经被作者于2018/5/29 9:36:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/5/29 9:31:00 [只看该作者]

老师 按照你的提示把原代码修改后,进行操作时系统提示:
.NET Framework 版本:2.0.50727.5466
Foxtable 版本:2018.3.9.1
错误所在事件:计划来货登记表,ChangeEdit
详细错误信息:
未将对象引用设置到对象的实例。
修改后的代码:tbl.Filter = "停用=false and 配送公司='" & e.form.dropTable.current("配送公司") & "' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

提示错误后改回原来的代码,运行就没问题:tbl.Filter = "停用=false and  (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
[此贴子已经被作者于2018/5/29 9:33:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/29 9:36:00 [只看该作者]

ChangeEdit

 

tbl.Filter = "停用=false and 配送公司='" & e.row("配送公司") & "' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

[此贴子已经被作者于2018/5/29 9:36:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/29 9:37:00 [只看该作者]

DropDownOpened

 

tbl.Filter = "停用=false and 配送公司='" & e.form.dropTable.current("配送公司") & "' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/5/29 9:47:00 [只看该作者]

提示有错误!
.NET Framework 版本:2.0.50727.5466
Foxtable 版本:2018.3.9.1
错误所在事件:
详细错误信息:
表达式中有语法错误。
这是ChangeEdit的代码
If e.Col.Name = "注册证号" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "停用=false" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'%" & e.Text & "%'"
            'tbl.Filter = "注册证号 Like " & txt & "  Or 生产企业 Like " & txt & " Or 名称 Like " & txt & " Or 规格型号 Like " & txt &""
            tbl.Filter = "停用=false and 配送公司='" & e.Row("配送公司")& "' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
        End If
    End If
End If

下面是DropDownOpened的代码
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("输入注册证号弹出筛选窗口_Table1")
If txt = "" Then
    tbl.Filter = "停用=false"
Else
    txt = "'%" & txt & "%'"
    'tbl.Filter = "停用=false and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
    tbl.Filter = "停用=false and 配送公司='" & e.form.dropTable.current("配送公司") & "' (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
[此贴子已经被作者于2018/5/29 9:51:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/29 9:51:00 [只看该作者]

tbl.Filter = "停用=false and 配送公司='" & e.Row("配送公司")& "' and (名称 Like " & txt & " Or 注册证号 Like " & txt & " Or 生产企业 Like " & txt & ")"

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/5/29 9:56:00 [只看该作者]

完美了  谢谢老师  是我太粗心了  再次表示感谢。

 回到顶部