Dim exp2 As String
exp2="日期 >= '" & e.Form.Controls("startdate").value & "' " & " And 日期 <= '" & e.Form.Controls("enddate").value & "' and 单据状态='已审核'"
Dim q2 As new QueryBuilder
q2.TableName = "yskgu11"
q2.C
q2.Se lectString ="sel ect 结算方式,sum(余额)as 金额 from {资金收付明细单} where " & exp2 & "group by 结算方式 "
q2.Build