控件Button1的Click事件代码
e.Form.Controls("DropBox1").Text = Nothing
e.Form.Controls("DateTimePicker1").Text = Nothing
e.Form.Controls("TextBox1").Text = Nothing
Tables("待加工查询_Table1").Filter = ""
DateTimePicker1的ValueChanged事件代码
Dim Filter As String
Dim ymd1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
If ymd1 IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "任务单.计划完成日期 <= #" & ymd1.value & "# "
End If
If Filter > "" Then
Tables("待加工查询_Table1").Filter = Filter
End If
[此贴子已经被作者于2025/2/8 12:34:19编辑过]