查询求助..

yangruihao

todaynew 发表于 2012-8-26 21:22
搞不明白你要干什么？
子窗体本来的数据源为采购单明细，为什么又在筛选中改为了采购商表头？

其实我是想通过“供应商”，显示找出 采购单表头子窗体 的“单号”“日期”“备注”。再通过点击  采购单表头子窗体  的“单号”，在另一个子窗体——采购单明细中显示出明细。

之前见过有老师做出类似这样的递进查询，所以我就想试一下

layaman_999

请删除最后那句requery
没用，平白无故多次查询

yangruihao

layaman_999 发表于 2012-8-26 22:36
请删除最后那句requery
没用，平白无故多次查询

删了那句也是没用..我已经打算重新做了，唉

roych

用筛选语句试试?

1.     Dim strSQL   As String
   
2.     If Len(Me.Combo0) > 0 Then
   
3.         strSQL = "供应商 like '*" & Trim(Nz(Me.Combo0.Value, "")) & "*' "
   
4.         Me.采购单表头_子窗体.Form.Filter = strSQL
   
5.         Me.采购单表头_子窗体.Form.FilterOn = True
   
6.     Else
   
7.         strSQL = ""
   
8.         Me.采购单表头_子窗体.Form.FilterOn = False
   
9.     End If
   
10.     Me.采购单表头_子窗体.Form.Requery

复制代码