写代码没必要那么啰嗦:Dim a As Date = Date.Today
Dim a1 As Date = a.AddDays( - 60)
e.Form.Controls("b-rqsx").Text = "筛选中"
Tables("备件出入库").Filter = "[出入库日期] >= #" & a1 & "#" & "and [出入库日期] <= #" & a & "#"
e.Form.Controls("rb-qb").Checked = True
e.Form.Controls("dp-drq").Value = a
e.Form.Controls("dp-crq").Value = a1
您就不能先筛选后给控件赋值试试。
[此贴子已经被作者于2025/3/21 13:47:34编辑过]