欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ 请狐爸帮忙看看升级代码问题出在哪里?升级后总是报错,但重新启动后正常
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
4435
人关注过本帖
平板
打印
复制链接
主题:请狐爸帮忙看看升级代码问题出在哪里?升级后总是报错,但重新启动后正常
audience68
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:小狐
帖子:
321
积分:2521
威望:0
精华:0
注册:
2012/5/19 22:40:00
请狐爸帮忙看看升级代码问题出在哪里?升级后总是报错,但重新启动后正常
Post By:2013/7/6 21:46:00 [
只看该作者
]
我的程序已经发布,使用也正常,远程升级也可以实现,但是一直有个问题,就是远程升级后系统自动启动总是出错。但是重新情动程序后就正常了,系统也全部更新了,一定是我的
afteropenproject编写存在瑕疵,麻烦狐爸帮我指导一下,谢谢了。
以下内容为程序代码:
1 Syscmd.Project.Update(False,True)
2 For Each dr As DataRow In DataTables("监造统计").DataRows
3 dr("距离交货期的时间") = ( CDate(dr("交货时间")) - Date.Today).TotalDays
4 Next
5 'Tables("监造统计").filter = "监造状态 <〉 完成"
6 Dim cnt As Integer = DataTables("监造统计").Select("[监造状态] <> '已完成' and 距离交货期的时间 <= 0").Count
7 If cnt > 0 Then
8 Tables("监造统计").filter = "[监造状态] <> '已完成' and 距离交货期的时间 <= 0"
9 messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
10 End If
11 StatusBar.Message2= "当前用户:" & User.Name & " 今天日期:" & Date.Today
12 Tables("合同跟踪情况.监造统计.合同明细表").Visible = False
13 Tables("需关注物资表.合同跟踪情况").Visible = False
14 Tables("需关注物资表.合同跟踪情况.监造统计").Visible = False
15 Tables("需关注物资表.合同跟踪情况.监造统计.合同明细表").Visible = False
16 Tables("合同明细表.监造统计").Visible = False
17 'Tables("表1").Visible = False
18 Forms("导航1").open()
19 If User.Type <> UserTypeEnum.Developer '隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)
20 TableCaptionVisible = False
21 End If
22 Tables("合同明细表").Grid.AllowFiltering = True '启动表的内置筛选功能
23 Tables("合同跟踪情况").Grid.AllowFiltering = True
24 Tables("在监的重要物资").Grid.AllowFiltering = True
25 Tables("无法满足现场需求时间的物资明细表").Grid.AllowFiltering = True
26 Tables("监造统计").Grid.AllowFiltering = True
27 Tables("合同明细窗口_Tbl_Main").Grid.AllowFiltering = True
28 Output.Logs("登录日志").Add(User.Name & ":" & Date.Now )
29 Output.Logs("登录日志").Save("\\wzbgyxxgl\物资供应信息管理系统\log.txt",True)
30 Output.Logs("登录日志").Clear
31
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.02344 秒, 5 次数据查询