代码如下:
Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")
Dim kg1 As String = "------"
Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")
jy.Links(0).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 = #" & Date.Today & "#") & "】元"
jy.Links(1).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 = #" & Date.Today & "#") & "】人"
jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 = #" & Date.Today & "#") & "】人"
Dim jy1 As WinForm.TopicPage =xxl.Pages("历史信息")
jy1.Links(0).Text = "历史营业金额【" & DataTables("消费明细").Compute("sum(累计消费)") & "】元"
jy1.Links(2).Text = "历史结账金额【" & DataTables("结账登记").Compute("sum(消费金额)") & "】元"
jy1.Links(1).Text = "历史就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)") & "】人"
今日数据不显示 历史数据能够正常显示