- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6609)
-- 发布时间：2010/4/12 15:36:00
-- 代码问题
佶龙机加二车间数据管理系统配置栏标准按钮Click事件
For Each dt As DataTable In DataTables
dt.Save()\'保存所有数据
Next
Dim s As String = CRCCheckFile("\\\\192.168.3.100\\wqc共享文件夹\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\\车间数据库\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
If s=s1 Then
For each frm As WinForm.Form In Forms
frm.Close \'关闭所有窗口
Next
MainTable = Tables("登陆")
Forms("界面").Show()
Else
Dim Proc As New Process \'定义一个新的Process
Proc.File = "E:\\更新程序\\Publish\\更新程序" \'指定要打开的文件
Proc.Start()\'打开文件
Syscmd.Project.Exit()
End If
更新程序项目属性AfterOpenProject事件代码：
FileSys.CopyDirectory ("\\\\192.168.3.100\\wqc共享文件夹\\Publish", "E:\\车间数据库\\Publish", True)
Dim Proc As New Process \'定义一个新的Process
Proc.File = "E:\\车间数据库\\Publish\\佶龙机加二车间数据管理系统" \'指定要打开的文件
Proc.Start()\'打开文件
Syscmd.Project.Exit()
点佶龙机加二车间数据管理系统配置栏标准按钮时，在192.168.3.100（本机）使用正常，在客户机使用不管是否重新发布项目（要求192.168.3.100没有重新发布项目时，应不执行一些代码的），都会执行打开共享程序项目，并关闭本项目，也会执行复制，但是还会出现提示窗口：
此主题相关图片如下：未命名.gif
-- 发布时间：2010/4/12 16:47:00
--
提示窗口不是代码问题，我打开其他项目时也会，以前不会，不知是怎么回事。
我在客户机执行代码：
Dim s As String = CRCCheckFile("\\\\192.168.3.100\\wqc共享文件夹\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\\车间数据库\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
Output.Show(s)
Output.Show(s1)
显示都是一样的，不一该执行1楼以下红色代码的：
For Each dt As DataTable In DataTables
dt.Save()\'保存所有数据
Next
Dim s As String = CRCCheckFile("\\\\192.168.3.100\\wqc共享文件夹\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\\车间数据库\\Publish\\Project\\佶龙机加二车间管理系统.FoxEx")
If s=s1 Then
For each frm As WinForm.Form In Forms
frm.Close \'关闭所有窗口
Next
MainTable = Tables("登陆")
Forms("界面").Show()
Else
Dim Proc As New Process \'定义一个新的Process
Proc.File = "E:\\更新程序\\Publish\\更新程序" \'指定要打开的文件
Proc.Start()\'打开文件
Syscmd.Project.Exit()
End If
但是用发布的项目，会执行红色代码，我在本机不会执行，纠结，请求帮助，谢谢
-- 发布时间：2010/4/12 17:33:00
--
佶龙机加二车间数据管理系统就是什么文件，加上后辍看看。
-- 发布时间：2010/4/12 17:56:00
--
谢谢C版，代码一样，我用按钮，现在好像可以了，晚上在多测试一下。
FileSys.CopyDirectory ("\\\\192.168.3.100\\wqc共享文件夹\\Publish", "E:\\车间数据库\\Publish", True)
加一段复制完毕才执行以下代码
Dim Proc As New Process \'定义一个新的Process
Proc.File = "E:\\车间数据库\\Publish\\佶龙机加二车间数据管理系统" \'指定要打开的文件
Proc.Start()\'打开文件
Syscmd.Project.Exit()