主题：求助：如何利用代码生成当前月每天的经营额 消费人数 人均消费的数值

Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")

Dim kg1 As String = "------"

Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")

jy.Links(1).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= #" & Date.Today & " 23:59:59#") & "】元"

jy.Links(0).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00#  and 就餐时间<= #" & Date.Today & " 23:59:59#") & "】人"

jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= #" & Date.Today & " 23:59:59#") & "】人"

Dim A1 As Integer = DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= #" & Date.Today & " 23:59:59#")

Dim b1 As Integer = DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= #" & Date.Today & " 23:59:59#")

Dim c1 As Integer

c1 = a1-b1

jy.Links(3).Text = "尚未结账金额【" & c1 & "】元"

Dim b12 As Integer = DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= #" & Date.Today & " 23:59:59#")

Dim b11 As Integer = DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00#  and 就餐时间<= #" & Date.Today & " 23:59:59#")

Dim c11 As Double

If b11<> 0 Then

    c11 = b12/b11

End If

jy.Links(4).Text = "今日人均消费【" & Format(c11,"f")  & "】元"