原来编制了个项目，试用没有出现过问题，今天安装到另外一台电脑上试用，就出现了错误，其代码如下：
Dim Page As WinForm.TopicPage
Dim cnt9 As String
Dim cnt10 As String
Dim cnt11 As String
cnt9 =cnt9 & User.Name
cnt10 =cnt10 & Date.Today
cnt11 =cnt11 & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek)
Page = e.Form.Controls("TopicBar1").Pages.Add("系统提示","系统提示")
Page.Links.Add("欢迎登陆:","欢迎登陆:(" & cnt9 & ")" )
Page.Links.Add("当前时间:","当前时间:(" & cnt10 & ")" )
Page.Links.Add("今天星期:","今天星期:(" & cnt11 & ")" )
Dim Page1 As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("订单").Compute("Count(下单日期)","下单日期 = #" & Date.Today & "#")
Dim cnt2 As Integer = DataTables("订单").Compute("Count(交货日期)","交货日期 = #" & Date.Today.AddDays(1) & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("订单资料","订单资料")
Page.Links.Add("今日新增订单","今日新增订单(" & cnt1 & ")" )
Page.Links.Add("明天准备生产","明天准备生产(" & cnt2 & ")" )
Dim Page2 As WinForm.TopicPage
Dim cnt3 As Integer = DataTables("采购单").Compute("Count(下单日期)","下单日期 = #" & Date.Today & "#")
Dim cnt4 As Integer = DataTables("采购明细").Compute("Count(计划回厂)","计划回厂 = #" & Date.Today.AddDays(1) & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("采购资料","采购资料")
Page.Links.Add("今日采购下单","今日采购下单(" & cnt3 & ")" )
Page.Links.Add("明日必催材料","明日必催材料(" & cnt4 & ")" )
Dim Page3 As WinForm.TopicPage
Dim cnt5 As Integer = DataTables("入库单").Compute("Count(入库日期)","入库日期 = #" & Date.Today & "#")
Dim cnt6 As Integer = DataTables("领料单").Compute("Count(领料日期)","领料日期 = #" & Date.Today & "#")
Dim cnt7 As Integer = DataTables("入库明细").Compute("Count(入库日期)","入库日期 = #" & Date.Today & "#")
Dim cnt8 As Integer = DataTables("领料明细").Compute("Count(交易日期)","交易日期 = #" & Date.Today & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("仓库资料","仓库资料")
Page.Links.Add("今日仓库入库","今日仓库入库(" & cnt5 & ")" )
Page.Links.Add("今日仓库发料","今日仓库发料(" & cnt6 & ")" )
Page.Links.Add("今日入库笔数","今日仓库入库(" & cnt7 & ")" )
Page.Links.Add("今日发料笔数","今日仓库发料(" & cnt8 & ")" )
请求老师指教
错误图示如下：
此主题相关图片如下：qq截图20151023130842.png
加好友 
发短信
Post By：2015/10/23 13:14:00 [只看该作者]
