Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("物料名称").Compute("Count(物料名称)","日期 = #" & Date.Today & "#")
Dim cnt2 As Integer = DataTables("部件名称").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")
Dim cnt3 As Integer = DataTables("部件名称").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")
Dim cnt4 As Integer = DataTables("部件名称").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")
Page = e.Form.Controls("统计汇总").Pages.Add("产品资料","产品资料")
Page.Links.Add("今日新增采购部件","今日新增采购部件(" & cnt1 & ")" )
Page.Links.Add("今日新增计划工单","今日新增计划工单(" & cnt2 & ")" )
Page.Links.Add("今日新增入库部件","今日新增入库部件(" & cnt3 & ")" )
Page.Links.Add("今日新增出库部件","今日新增出库部件(" & cnt4 & ")" )
`````````````
甜老师·帮忙看看···
[此贴子已经被作者于2017/7/27 14:15:02编辑过]