我要做一个这样的查询，我们是大的林业局，下面又分了林场，我想做的是，把各林场的资料都输入后，在用组合框查询的时候，选择林业局，所有林场的资料就全部能从子窗体显示出来。请各们大侠们帮帮们！！！！！！！！
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click
Dim Str As String
Str = ""
If Not IsNull(Me.单位) Then
Str = Str & "([单位] like '*" & Me.[单位] & "*') AND "
If (Me.单位 = 迭部林业局) Then
Str = Str & "([单位] like '*" & 林场 & "*') AND "
End If
End If
If Not IsNull(Me.开始时间) Then
Str = Str & "([造林时间] >= #" & Format(Me.开始时间, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.结束时间) Then
Str = Str & "([造林时间] <= #" & Format(Me.结束时间, "yyyy-mm-dd") & "#) AND "
End If
If Len(Str) > 0 Then
Str = Left(Str, Len(Str) - 5)
End If
Debug.Print Str
Me.小班情况表查询子窗体.Form.Filter = Str
Me.小班情况表查询子窗体.Form.FilterOn = True
Exit_Command46_Click:
Exit Sub
Err_Command46_Click:
MsgBox Err.Description
Resume Exit_Command46_Click
End Sub
我做了个这样的，分林场的能查出来，可是要查林业局的时候，却怎么也查不出来，请高手们帮忙看看吧！！！作者: dbbygzy 时间: 2010-4-10 16:39
别让我的沉了啊，各位高手们！！！！作者: dbbygzy 时间: 2010-4-11 13:56
各位大侠帮帮啊！！！！！！！！！！！！！！！！！！！！