Dim cbx As WinForm.ComboBox = e.Form.Controls("ComboBox1") If cbx.text > "" Then Dim ary() As String = cbx.text.split("年") Dim d As Date = new Date(ary(0), ary(1).replace("月", ""), 1) Dim filter As String = "接单日期>=#" & d & "# And 接单日期<#" & d.AddMonths(1) & "# Or 量房日期>=#" & d & "# And 量房日期<#" & d.AddMonths(1) & "# Or 预收日期>=#" & d & "# And 预收日期<#" & d.AddMonths(1) & "# Or 预签日期>=#" & d & "# And 预签日期<#" & d.AddMonths(1) & "#" Tables("表A").filter = filter Else Tables("表A").filter = "" End If
|