以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动升级  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=112803)

--  作者:nxqtxwz
--  发布时间:2018/1/3 10:43:00
--  自动升级
老师您好,请问如何实现局域网内发布的项目自动升级呢?代码怎么写呢?
--  作者:nxqtxwz
--  发布时间:2018/1/3 10:45:00
--  
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    DataTables("职工信息总表").DataCols("出生日期").RaiseDataColChanged()
    DataTables("调出职工").DataCols("出生日期").RaiseDataColChanged()
    Tables("职工信息总表").OpenView("视图一")
    DataTables("退休职工").DataCols("出生日期").RaiseDataColChanged()
    DataTables("职工信息总表").DataCols("工作时间").RaiseDataColChanged()
End If

--  作者:sjx71
--  发布时间:2018/1/3 11:01:00
--  
http://www.foxtable.com/webhelp/scr/2934.htm
--  作者:有点甜
--  发布时间:2018/1/3 11:03:00
--  

把发布后的升级文件放到升级路径即可

 

http://www.foxtable.com/webhelp/scr/2245.htm

 

http://www.foxtable.com/webhelp/scr/2948.htm

 


--  作者:nxqtxwz
--  发布时间:2018/1/3 11:18:00
--  

老师,您说的这些路径我都是正确的,但在AfterOpenProject事件中代码应该怎么写呢,我上面的写法正确吗?如果这样写行不行:

Syscmd.Project.Update(False,False)

 

    DataTables("职工信息总表").DataCols("出生日期").RaiseDataColChanged()
    DataTables("调出职工").DataCols("出生日期").RaiseDataColChanged()
    Tables("职工信息总表").OpenView("视图一")
    DataTables("退休职工").DataCols("出生日期").RaiseDataColChanged()
    DataTables("职工信息总表").DataCols("工作时间").RaiseDataColChanged()


--  作者:有点甜
--  发布时间:2018/1/3 12:28:00
--  

2楼代码没问题。

 

测试的时候,你可以改成这样 Syscmd.Project.Update


--  作者:nxqtxwz
--  发布时间:2018/1/3 14:31:00
--  

问题解决,谢谢老师。原来是我项目属性中的发布日期没有改变,每次编译后都是同一日期,所以没有动作。