Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？


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

主题：加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？  发帖心情 Post By：2020/1/9 19:47:00 [只看该作者]

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户ID Like " & txt 
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

以上代码是筛选出“窗口表”当前行的“客户ID列”的模糊搜索，
那么，要在这之前加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？
[此贴子已经被作者于2020/1/9 19:47:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2020/1/10 8:42:00 [只看该作者]

求帮助

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106673 积分：542554 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/10 9:21:00 [只看该作者]

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户ID Like " & txt & " and 客户名称='" & e.Form.Droptable.current("客户名称") & "'"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）Dim txt As String = e.Form.DropDow...  发帖心情 Post By：2020/1/10 19:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：p@)mnzaz`ye{)za$9gk)g.png
图片点击可在新窗口打开查看

下拉窗口的焦点输入单元格内的值无法更改呢？
每次有改动，都会提示以上错误？
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（fengwenliuyan）回复：（有点蓝）Dim txt As ...  发帖心情 Post By：2020/1/10 19:35:00 [只看该作者]

ChangeEdit，中出错的代码如下：


If e.Col.Name = "品名规格" Then '如果编辑的是品名规格列

    If e.Col.DroppedDown Then '如果下拉窗口已经打开

        Dim tbl As Table = Tables("下拉窗口_意和表")

        If e.Text = "" Then '如果内容为空

            tbl.Filter = "" '显示所有客户

        Else '否则根据输入内容进行模糊筛选

            Dim txt As String = "'%" & e.Text & "%'"

            '            tbl.Filter = "品名规格 Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt

            tbl.Filter = "品名规格 Like " & txt & " and 客户='" & e.Form.Droptable.current("客户") & "'"

        End If

    End If

End If
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（fengwenliuyan）回复：（fengwenliuyan）回复...  发帖心情 Post By：2020/1/10 19:49:00 [只看该作者]

我做了一个测试项目，放上来了，错误提示也是相同的，求帮助！？
如何才能使“品名规格”列的内容变化后，不再出错？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2020/1/10 20:00:00 [只看该作者]

求帮助 ？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106673 积分：542554 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/10 20:18:00 [只看该作者]

If e.Col.Name = "品名规格" Then '如果编辑的是品名规格列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("下拉窗口_意和表")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "客户='" & e.Row("客户") & "'" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'%" & e.Text & "%'"
            '            tbl.Filter = "品名规格 Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
            tbl.Filter = "品名规格 Like " & txt & " and 客户='" & e.Row("客户") & "'"
        End If
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询