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)

项目在未安装foxtable软件的电脑上运行？

当然应该安装foxtable啊？ C/S架构，数据在服务器，程序在客户端，否则传输程序都要近50兆，能快才怪。

这是理所当然的。

foxtable和项目在客户端，服务器只放数据。

仔细看看《使用指南》下的《网络与数据源》这一章吧。

关于发布

Foxtable分为商业版和开发版，大家从主页下载的试用版也是商业版，试用期为半年左右。
商业版和开发版的差别在于有无发布功能，其余功能完全一致。
商业版开发的程序，可以复制到任何电脑运行，但是目标电脑也必须安装有Foxtable。
开发版在商业版的基础上，增加了发布功能，项目经过发布后可以脱离Foxtable，直接复制到任何电脑运行，不再需要安装Foxtable。

谢谢狐爸老师的回复，但是学生还是不明白，难道发布后的项目不能脱离Foxtable？我一直认为可以脱离Foxtable的，还请狐爸老师指教，谢谢！！

可以脱离的。

将发布后的程序，复制到客户端就行了。

如果没有开发版，就将在客户端安装foxtable。

不要想了，15秒的启动速度，完全正常。

120秒是你的部署方式出了问题。

谢谢狐爸老师的回复，这里提到的部署方法应该如何去做，不太明白，还请狐爸老师指教。

另外，在论坛里找了一下关于启动的帖子，讲到关于互联网的问题，我想是否与此有关？因为安装foxtable的机子通过无线路由与互联网连接，速度就比较正常，而其他的客户端是不连互联网的，所以启动速度就慢，这样的分析是否合理？如果是这个原因的话，又如何来解决，还请各位老师指教，谢谢了！！

你的问题和那个网络问题无关。

c/s的部署是：

1、数据在服务器

2、程序咋客户端。

就像我们炒股，炒股软件是安装在自己的电脑上，股票数据来自于证劵公司的服务器。

网络环境，程序和数据要分离，所以你要使用外部数据源，参考《使用指南》下《网路与数据源》这一行。