Dim Filter As String = "1=1"
With e.Form.Controls("RQ1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "acctdate >= '" & .Value & "'"
End If
End With
With e.Form.Controls("RQ2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "acctdate <= '" & .Value & "'"
End If
End With
cmd.CommandText = "selec t acctdate as [日期],period as [会计期间],debit as [借方金额],credit as [贷方金额],debit-credit as [金额],projectname as [核算项目] from {cn_acctbook} left outer join {cn_project} on {cn_acctbook}.projectid = {cn_project}.id where isdelete = 0 and datepart(yy,acctdate) >= datepart(yy,getdate())-1"
如何将标颜色的日期范围用上面的筛选条件替换
加好友 
发短信
Post By：2019/6/13 19:47:00 [只看该作者]
