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("审核查询")
If xzl.Value <> "全部" Then
If f.ColS(""& xzl.Value &"").IsDate Then
Dim rqgs As Date = nr.Value
If rqgs <> Nothing Then
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = #" & rqgs & "# And 审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = #" & rqgs & "# And 审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = #" & rqgs & "# "
End If
Else If rqgs = Nothing Then
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = "审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = "审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = ""
End If
End If
Else If f.ColS(""& xzl.Value &"").IsNumeric Then
Dim szgs As Double = nr.Value
If szgs <> Nothing Then
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = " & szgs & " And 审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = " & szgs & " And 审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = "" & xzl.Value & " = " & szgs & ""
End If
Else If szgs = Nothing Then
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = " 审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = " 审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = ""
End If
End If
Else
If nr.Value = "" Then
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = "审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = "审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = ""
End If
Else
If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " like '*" & nr.Value & "*' And 审核状态 = False "
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = "" & xzl.Value & " like '*" & nr.Value & "*' And 审核状态 = True "
Else If shcx.Value = "全部" Then
f.DataTable.LoadFilter = "" & xzl.Value & " like '*" & nr.Value & "*'"
End If
End If
End If
Else If xzl.Value = "全部" Then
If shcx.Value = "全部" Then
f.DataTable.LoadFilter = ""
Else If shcx.Value = "已审核" Then
f.DataTable.LoadFilter = " 审核状态 = true "
Else If shcx.Value = "未审核" Then
f.DataTable.LoadFilter = " 审核状态 = false "
End If
Tables("主窗口_子窗体").AutoSizeCols()
je.Text = f.Compute("sum([金额])")
End If
f.DataTable.Load
以上红字部分代码执行时查不到数据（实际数据有，数据类型为字符型），其他部分全部都正常，请高手指点下是什么问题
加好友 
发短信
Post By：2014/11/17 20:54:00 [只看该作者]
