Dim vr As String vr = e.Form.Controls("khmc").value Dim qsr As String Dim jsr As String qsr = e.Form.controls("StartDate").value jsr = e. Form.controls("enddate").value Tables("查询_Table1").Fill("Select * From {应收明细} where 客户名称 = '" & vr & "' and 应收日期 >=#" & qsr & "# and 应收日期 <= #" & jsr &" #","应收管理",True)