以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多条件查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39164)
--  作者：菜鸟学习中
--  发布时间：2013/8/17 7:11:00
--  多条件查询
大神们 帮我看看  雇员的列表项目怎么出不来呢？ 我是想三种条件下查询，另外查询按钮的代码怎么写呢？谢谢了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多条件查询.table
--  作者：y2287958
--  发布时间：2013/8/17 8:29:00
--  
雇员Enter事件：
Dim cp As WinForm.ComboBox = e.Form.Controls("产品")
Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim gy As WinForm.ComboBox = e.Form.Controls("雇员")
If kh.Text > ""
    gy.ComboList = DataTables("订单").GetComboListString("雇员","产品 = \'" & cp.Text & "\'And 客户 = \'" & kh.Text & "\'")
Else
    gy.ComboList = DataTables("订单").GetComboListString("雇员","产品 = \'" & cp.Text & "\'")
End If

查询按钮事件：
Dim ss1() As String = {e.Form.Controls("产品").text,e.Form.Controls("雇员").text,e.Form.Controls("客户").text}
Dim ss2() As String = {"产品","雇员","客户"}
Dim s As String
For i As Integer = 0 To ss1.Length - 1
    If ss1(i)>""
        s += " and " & ss2(i) & "=\'" & ss1(i) & "\'"
    End If
Next
Tables("订单").Filter = mid(s,5)
--  作者：lsy
--  发布时间：2013/8/17 9:11:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多条件查询.table
--  作者：菜鸟学习中
--  发布时间：2013/8/17 18:03:00
--  
回复有点晚了 还是谢谢啊
--  作者：菜鸟学习中
--  发布时间：2013/8/17 18:03:00
--  
多谢