Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在下拉窗口中进行查找后下拉窗口就直接退出了


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

主题：[求助]在下拉窗口中进行查找后下拉窗口就直接退出了
帅哥哟，离线，有人找我吗？
loongtai
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00 		[求助]在下拉窗口中进行查找后下拉窗口就直接退出了  发帖心情 Post By：2015/3/1 21:09:00 [只看该作者]

如题，窗口布局如下：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150301210533.png
图片点击可在新窗口打开查看
在查找文本框的valuechanged事件中代码如下：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150301210505.png
图片点击可在新窗口打开查看
试了下查找的filter 语句是正确的，但查找后，下拉窗口就直接退出了。不知如何在查找后下拉窗口仍然显示？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 上传对应例子，除非你关闭，不然不会无故关闭

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


加好友 发短信
等级：二尾狐 帖子：574 积分：4332 威望：0 精华：0 注册：2013/7/26 10:24:00 		  发帖心情 Post By：2015/3/2 18:19:00 [只看该作者]

试了下，查找后下拉窗口还是直接关闭了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:下拉窗口.zip
还请大侠们帮忙解决
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

'MessageBox.Show("触发查找事件")
Dim 查找内容 As String =e.sender.value
Dim tbl As Table = Tables(e.form.name & "_Tab_1")
Dim 查找列值 As String=e.Form.Controls("ccb_查找列_1").value
Dim 查找列 As new List(of String)
Dim 字符列 As new List(of String)
Dim filter As String
Dim i As Integer
If 查找内容 = "" Then
    tbl.Filter = ""
Else
    查找内容 = "'%" & 查找内容 & "%'"
    For Each c As Col In tbl.Cols
        If c.IsString Then
            字符列.add(c.name)
        End If
    Next
    If 查找列值="" Then
        For Each c As Col In tbl.Cols
            If c.IsString Then
                查找列.add(c.name)
            End If
        Next
    Else
        查找列.addrange(查找列值.split("|"))
        For Each str As String In 查找列
            If 字符列.contains(str)=False Then
                查找列.Remove(str)
            End If
        Next
    End If
    For Each str As String In 查找列
        If filter Is Nothing Then
            filter=str & " Like "  & 查找内容
        Else
            filter=filter & " or " & str & " Like " & 查找内容
        End If
    Next
    'MessageBox.show("filter=" & filter)
    tbl.Filter =filter
    'e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
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.03906 秒, 5 次数据查询