Dim ed As Date = Date.Now()
e.Form.Controls("终止日期").text=ed
Dim y As Integer = ed.Year
Dim m As Integer = ed.Month
Dim d As Integer =ed.Day
MessageBox.Show(y)
Dim sy1 As New Date(y+1,m,d)
Dim sy2 As New Date(y+2,m,d)
Dim sy3 As New Date(y+3,m,d)
MessageBox.Show(sy3)
Dim g As New SQLGroupTableBuilder("统计表1","CW_应付款明细")
g.Caption = "其他应付款(2022)"
g.Groups.AddDef("往来单位")
'g.Exprs.Adddef("账龄","IIF(支付日期>=sy3,"3年以上(含3年)",IIF(支付日期>=sy2,"2-3年(含2年)",IIF(支付日期>=sy1,"1-2年(含1年)","1年以下")))")
'g.Totals.AddExp("3年以上(含3年)","iif(支付日期 > =sy3,金额,0)")
'g.Totals.AddExp("2-3年(含2年)","iif(支付日期 < sy3 and 支付日期 > =sy2,金额,0)")
'g.Totals.AddExp("1-2年(含1年)","iif(支付日期 < sy2 and 支付日期 > =sy1,金额,0)")
g.Totals.AddExp("1年以下","iif(支付日期 < sy1,金额,0)")
'Dim str As Integer=IIF([支付日期]<sy1,[金额],0)
'g.Filter = "[是否核销]=false"
'g.Build()
Tables("往来款统计_Table1").DataSource = g.BuildDataSource()
加好友 
发短信
Post By：2022/8/22 19:05:00 [显示全部帖子]
