e.Form.Controls("rb-qb").Checked = True
e.Form.Controls("dp-drq").Value = Date.Today
Dim a As Date = e.Form.Controls("dp-drq").Value
Dim a1 As Date = a.AddDays( - 60)
e.Form.Controls("dp-crq").Value = a1
Dim crq As WinForm.DateTimePicker = e.Form.Controls("dp-crq")
Dim drq As WinForm.DateTimePicker = e.Form.Controls("dp-drq")
Tables("备件出入库").Filter = "[出入库日期] >= #" & crq.Value & "#" & "and [出入库日期] <= #" & drq.Value & "#"
e.Form.Controls("b-rqsx").Text = "筛选中"
老师们在AfterLoad事件中写这个代码给日期赋值会使窗口打开非常慢,有什么好方法吗?
给日期赋值不会导致慢的,可能是筛选引起的,或者是触发了控件的什么事件