以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71664)
--  作者：ZDG
--  发布时间：2015/7/15 19:48:00
--  [求助]代码不起作用

Dim drp As WinForm.DropDownBox = e.Form.Controls("DropBox1")

If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("窗口3_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
    End If
End If

 

为什么输入内容，窗口不会打开
--  作者：blsu33
--  发布时间：2015/7/15 19:56:00
--  

Dim drp As WinForm.DropDownBox = e.Form.Controls("DropBox1")

If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("窗口3_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户

MessageBox.Show(tbl.Filter)
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt

MessageBox.Show(tbl.Filter)

    End If
End If



看看显示什么
--  作者：ZDG
--  发布时间：2015/7/15 19:59:00
--  
什么都不显示
--  作者：大红袍
--  发布时间：2015/7/15 19:59:00
--  

 你这段，根本就没有打开窗口的代码。

 

 http://www.foxtable.com/help/topics/2466.htm

 
--  作者：ZDG
--  发布时间：2015/7/15 20:03:00
--  

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("窗口3_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
    End If
End If

那为什么这个可以，能教教吗

 
--  作者：大红袍
--  发布时间：2015/7/15 20:05:00
--  

 说明你的控件名写错了 e.Form.Controls("DropBox1")
--  作者：ZDG
--  发布时间：2015/7/15 20:05:00
--  

还有，两个窗口的下啦组合框能共用一个下拉窗口吗

 
--  作者：大红袍
--  发布时间：2015/7/15 20:07:00
--  
以下是引用ZDG在2015/7/15 20:05:00的发言：

还有，两个窗口的下啦组合框能共用一个下拉窗口吗

 

 

可以。
--  作者：ZDG
--  发布时间：2015/7/15 20:11:00
--  
以下是引用ZDG在2015/7/15 20:03:00的发言：

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("窗口3_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
    End If
End If

。我那个控件名是引用变量来的，该怎么写，能教教吗

 
--  作者：ZDG
--  发布时间：2015/7/15 20:23:00
--  
谢谢大红袍老师，是我学习不到位，已经搞定了