以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何通过子表要素,查询主表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58562)

--  作者:瞩望星空
--  发布时间:2014/10/19 21:07:00
--  如何通过子表要素,查询主表

在订单主表-订单明细表的查询中,一般是通过对主表的订单客户、订单号等要素去查询。

现在想通过订单明细表中的要素,如产品的价格,规格等,去查询订单主表,请问该如何修改订单查询的“查询”代码?

界面:

 


图片点击可在新窗口打开查看此主题相关图片如下:问题1.jpg
图片点击可在新窗口打开查看

含查询窗口的项目文件:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查询子表.table


--  作者:有点甜
--  发布时间:2014/10/19 21:35:00
--  

Dim ddh As WinForm.TextBox = e.Form.Controls("订单号")
Dim cj As WinForm.ComboBox = e.Form.Controls("订单查询厂家筛选")
Dim dj As WinForm.TextBox = e.Form.Controls("单价")
Dim gg As WinForm.TextBox = e.Form.Controls("规格")

Dim filter As String = "1=1"
Dim filter2 As String = "1=1"
If cj.Value <> "厂家筛选" Then
    If cj.Value <> "所有客户" Then
        filter &= " and 订单客户 = \'" & cj.Value & "\'"
    End If
   
    If ddh.Value > "" Then
        filter &= " and 客户订单号 like \'%" & ddh.Value & "%\'"
    End If
   
    If dj.Value > "" Then
        filter2 &= " and 单价 = " & dj.Value & ""
    End If
   
    If gg.Value > "" Then
        filter2 &= " and 型号规格 like \'%" & gg.Value.Replace("*", "[*]") & "%\'"
    End If
    Dim ddhs As String = "\'" & DataTables("订单明细表").GetComboListString("客户订单号", filter2).Replace("|", "\',\'") & "\'"
    Tables("查询窗体_订单主表").Filter = filter & " and 客户订单号 in (" & ddhs & ")"
Else
    MessageBox.Show("未选择厂家!")
    cj.OpenDropDown
End If


--  作者:瞩望星空
--  发布时间:2014/10/19 22:34:00
--  
谢谢甜总!