……Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim cnt1 As Integer = DataTables("开piao资料").Compute("Count(销售数量)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim cnt2 As Integer = DataTables("开piao资料").Compute("Count(销售金额)", "开piao月份 >= #" & dt1 & "# And D <= #" & dt2 & "#")
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
If tpb.Pages("本月销售") Is Nothing Then
Page = tpb.Pages.Add("本月销售", "本月销售")
Page.Links.Add("销售数量", "销售数量(" & cnt1 & ")")
Page.Links.Add("销售金额", "销售金额(" & cnt2 & ")")
Else
Page = tpb.Pages("本月销售")
Page.Links("销售数量").Text = "销售数量(" & cnt1 & ")"
Page.Links("销售金额").Text = "销售金额(" & cnt2 & ")"
End If
加好友 
发短信
Post By：2024/4/29 20:29:00 [显示全部帖子]
