发布一个项目,运行在局域网,数据源为SQL Server。在安装foxtable软件的电脑上(win7)运行,从点击项目的exe文件到弹出登录窗口,用时在15秒以内,但是该项目在未安装foxtable软件的电脑上运行(xp及win7),这一过程基本上要达到120秒左右,非常煎熬。请教各位老师,出现这种情况,应该从哪些方面来改进;除了项目属性的AfterOpenProject事件,还有那些事件影响项目的启动速度?谢谢!!
附上项目属性的AfterOpenProject事件代码:
Forms("用户登录").Open()
If _username = "" Then
Return
End If
TableCaptionVisible = False '隐藏表标题
'删除部分内部表所有行
DataTables("名册清单").DeleteFor("[编号] Is Not Null ")
DataTables("报酬余额").DeleteFor("[编号] Is Not Null ")
DataTables("收入生成").DeleteFor("[编号] Is Not Null ")
DataTables("数据填报").DeleteFor("[编号] Is Not Null ")
DataTables("bcye").DeleteFor("[离监年月] Is Not Null ")
'填充ny表
DataTables("ny").DeleteFor("nyr Is not Null")
Dim mydate1 As Date = Date.Today.AddMonths(-24)
Dim y As Integer = mydate1.Year
Dim m As Integer = mydate1.Month
Dim d1 As Date = New Date(y,m,1)
Dim d2 As Date = Date.Today()
Dim d As Date = d1
Do While d <= d2
Dim dr As Row = Tables("ny").AddNew
dr("nyr") = d
d = d.AddMonths(1)
If d1.day = Date.DaysInMonth(d1.year,d1.month) Then
d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
End If
Loop
For Each dr As DataRow In DataTables("ny").DataRows
If dr.IsNull("nyr") Then
dr("ny") = Nothing
Else
Dim nyr As Date = dr("nyr")
Dim ny As String = format(nyr,"yyyy-MM")
dr("ny") = ny
End If
Next
DataTables("ny").Save()
Tables("ny").AutoSizeCols()
'在线升级提示
Syscmd.Project.Update(False,True)
[此贴子已经被作者于2012-7-27 8:39:09编辑过]