Data1.RecordSource = "Select Sum([应负总金额]) as [统计总额] from [广告数据] where [付款时间] between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"
Data1.Refresh
.....
Data1.RecordSource = "select * from 广告数据 where 付款时间 >= #" & CDate(qdate) & "# and 付款时间 <=#" & CDate(zdate) & "#"
Data1.Refresh
'Data1.Recordset.MoveFirst
If Not Data1.Recordset.EOF Then
Data1.RecordSource = "Select Sum(应负总金额) as (统计总额)from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"
'Data1.RecordSource = "统计总额"
showsub.Text = Data1.Recordset("统计总额")
c = c + 1
End If
If c = 0 Then
MsgBox "无法统计该范围的交易额款"
End If
End Sub
上面的代码对吗?