请问如何进行金额大小的查询

愉快　发表于：2009-10-29 17:26:48 　

我做了查询界面，里面有合同金额大小查询。很奇快，查询数据与合同金额第一个数据相同才可以查询。

愉快发表于：2009-10-29 17:27:51

愉快发表于：2009-10-29 17:29:20

Private Function FiltFrmWhere() As String

        StrSql = ""
        If Not IsNull(Me.Text0) Then
            StrSql = StrSql & " danwei like '*" & Me.Text0 & "*' and "
        End If
        If Not IsNull(Me.Text4) Then
           StrSql = StrSql & " leixing like '*" & Me.Text4 & "*' and "
        End If
        If Not IsNull(Me.Text2) Then
           StrSql = StrSql & " mingzi like '*" & Me.Text2 & "*' and "
        End If
        If Not IsNull(Me.Text6) Then
           StrSql = StrSql & " shouji like '*" & Me.Text6 & "*' and "
        End If
       If Not IsNull(Me.Text12) Then
           StrSql = StrSql & " hetongyuanwen like '*" & Me.Text12 & "*' and "
        End If
        If Not IsNull(Me.Text14) Then
            StrSql = StrSql & " hetongjinge >= val('" & Me.Text14 & "') and "
        End If
        If Not IsNull(Me.Text8) Then
            StrSql = StrSql & " dengjiriqi >= #" & Me.Text8 & "# and "
        End If
        If Not IsNull(Me.Text10) Then
            StrSql = StrSql & " dengjiriqi <= #" & Me.Text10 & "# and "
        End If

        If Len(StrSql) > 0 Then
           StrSql = Left(StrSql, Len(StrSql) - 5)
        End If

     FiltFrmWhere = StrSql
End Function