Dim tbl As Table = Tables("主合同")
Dim Filter As String
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "签订日期 >= '" & .Value & "'"
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "签订日期 <= '" & .Value & "'"
End If
End With
With e.Form.Controls("DateTimePicker3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "合同结束日期 >= '" & .Value & "'"
End If
End With
With e.Form.Controls("DateTimePicker4")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "合同结束日期 <= '" & .Value & "'"
End If
End With
If e.Form.Controls("CheckBox1").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "代账服务 = 1"
End If
If e.Form.Controls("CheckBox2").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "代税服务_国税申报 = 1 "
End If
If e.Form.Controls("CheckBox3").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & ("工商代理_年报公示 = 1 or (工商代理_注册登记 = 1) Or (工商代理_变更登记 =1) Or (工商代理_注销登记 =)")
End If
If e.Form.Controls("CheckBox4").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "下欠服务费 > 0"
End If
If e.Form.Controls("RadioButton2").Checked = True ' 如果已审核状态选择了"对号"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已审核 = 1"
End If
If e.Form.Controls("RadioButton3").Checked = True ' 如果已审核状态未选择"对号"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已审核 = 0 Or 已审核 Is Null"
End If
If e.Form.Controls("RadioButton6").Checked = True ' 如果客户状态选择了"对号"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已终止 = 1"
End If
If e.Form.Controls("RadioButton5").Checked = True ' 如果客户状态未选择"对号"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已终止 = 0 Or 已终止 Is Null"
End If
If Filter > "" Then
tbl.DataTable.loadFilter = Filter
tbl.DataTable.loadPage = 0
tbl.DataTable.LoadTop = "100 percent"
tbl.DataTable.load
End If