Dim filter = iif(vars("filter")>"", " and (" & vars("filter") & ")", "")
dr1("人数") = dt.Compute("Count(name)", "age" & " < 60 " & filter)