主题：filter 日期和数值问题

 请上传整个不行的项目，或者做一个不行的例子。

先点导航栏单据管理，再点销售收款，再选日期，再填入条件点查询

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:desktop.rar

看 11 楼

密码

这样不行吗

19782754611

Dim nr As WinForm.TextBox = e.Form.Controls("查询内容")
Dim xzl As WinForm.ComboBox = e.Form.Controls("选择列")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim d As WinForm.Label = e.Form.Controls("Label1")
Dim f As Table = Tables("主窗口_子窗体")
Dim b As Table = Tables("主窗口_子窗口2")
Dim shcx As WinForm.ComboBox = e.Form.Controls("审核查询")
f.DataTable.Load
If e.Sender.Text > "" Then
    If xzl.Value = "全部" And shcx.Value = "全部" Then
        f.Filter =""
    Else If xzl.Value = "全部" And shcx.Value = "已审核" Then
        f.Filter = " 审核状态 = true "
    Else If xzl.Value = "全部" And shcx.Value = "未审核" Then
        f.Filter = " 审核状态 = false "
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "全部" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*'"
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = True "
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = false "
    Else If xzl.Value = "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " like # & nr.Value & # And 审核状态 = False "
    Else If xzl.Value = "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " like # & nr.Value & # and 审核状态 = true "
    Else If xzl.Value = "日期" And shcx.Value = "全部" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like # & nr.Value & # "
    End If
    Tables("主窗口_子窗体").AutoSizeCols()
End If

不行啊，同样的错误

Dim nr As WinForm.TextBox = e.Form.Controls("查询内容")
Dim xzl As WinForm.ComboBox = e.Form.Controls("选择列")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim d As WinForm.Label = e.Form.Controls("Label1")
Dim f As Table = Tables("主窗口_子窗体")
Dim b As Table = Tables("主窗口_子窗口2")
Dim shcx As WinForm.ComboBox = e.Form.Controls("审核查询")
f.DataTable.Load
If e.Sender.Text > "" Then
    If xzl.Value = "全部" And shcx.Value = "全部" Then
        f.Filter =""
    Else If xzl.Value = "全部" And shcx.Value = "已审核" Then
        f.Filter = " 审核状态 = true "
    Else If xzl.Value = "全部" And shcx.Value = "未审核" Then
        f.Filter = " 审核状态 = false "
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "全部" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*'"
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = True "
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = false "
    Else If xzl.Value = "日期" And shcx.Value = "未审核" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%' And 审核状态 = False "
    Else If xzl.Value = "日期" And shcx.Value = "已审核" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%' And 审核状态 = True "
    Else If xzl.Value = "日期" And shcx.Value = "全部" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%'"
    End If
    Tables("主窗口_子窗体").AutoSizeCols()
End If