{求助}窗体下列表框数据筛选.出出招哟!--谢谢

yxf614

2# todaynew

我是这样写的.不行呀.请大家帮忙看下.谢谢!!

Private Sub Command73_Click()
Dim str As String
If Nz(Me.Text66.Value, 0) > 0 Then
   str = "出租价格>=" & Nz(Me.Text69.Value, 0) & " and 出租价格<=" & Me.Text66.Value
Else
   str = "出租价格>=" & Nz(Me.Text69.Value, 0)
End If
If Nz(Me.Text71.Value, "") <> "" Then
   str = str & " and 房屋朝向='" & Me.Text71.Value & "'"
Else
   str = str & " and 房屋朝向='*'"
End If
Me.Form.Filter = str
Me.Form.FilterOn = True

End Sub

todaynew

像老是有点问题.再请教下你哟
yxf614 发表于 2009-12-19 21:04

yxf614

这个我也是会的.但是子窗体要为列表框.这样才能双击事件到另一窗口.难度大哟
还是很谢谢你哟

todaynew

用列表框是一样的，不过是解决列表框数据源的问题。也就是说将写在str变量前面加上“where ”后，与列表框的数据源（sql字符串）链接起来，做为列表框的数据源。

Private Sub Command73_Click()
Dim str As String
If Nz(Me.Text66.Value, 0) > 0 Then
   str = "出租价格>=" & Nz(Me.Text69.Value, 0) & " and 出租价格<=" & Me.Text66.Value
Else
   str = "出租价格>=" & Nz(Me.Text69.Value, 0)
End If
If Nz(Me.Text71.Value, "") <> "" Then
   str = str & " and 房屋朝向='" & Me.Text71.Value & "'"
Else
   str = str & " and 房屋朝向='*'"
End If

str=Me.列表框.RecordSource & "  where  " & str
Me.列表框.RecordSource=str
Me.列表框.Requery

End Sub

yxf614

14# todaynew


这样还是用不了.不过我还是想你这个方法.谢谢能不能再讲下.

todaynew

14# todaynew  


这样还是用不了.不过我还是想你这个方法.谢谢能不能再讲下.
40881
yxf614 发表于 2009-12-20 11:27

yxf614

写了个清除条件代码如下,用不来.请你看下.
Private Sub Command75_Click()
   '下面这些控件的值要清空
    Me.下限 = Null
    Me.上限 = Null
    Me.朝向 = Null

   
    Me.List14.Requery  '清空之后一样要重新查询
End Sub

yxf614

16# todaynew

todaynew

Private Sub Command75_Click()
    Me.下限.value = Null
    Me.上限.value = Null
    Me.朝向.value = Null
    Me.List14.RowSource = "可租房源查询"   
    Me.List14.Requery
End Sub

yxf614

没有人了哟