If Syscmd.Project.Update(False,False) = False Then '如果没有升级
If Vars("操作员")<>"胡伟新"
BaseMainForm.Controls("C1StatusBar1").Visible = False '隐藏状态栏'
basemainform.FormBorderStyle = 0 ''隐藏标题
TableCaptionVisible = False' ' 隐藏表
RibbonTabs("业务类型").Visible=False
RibbonTabs("公共基础资料维护").Visible=False
RibbonTabs("系统更新").Visible=False
RibbonTabs("修改密码").Visible=False
End If
BaseMainform.Text =DataTables("one").Datarows(0)("版本号")
Forms("下载中").Open
basemainform.icon = new icon(ProjectPath & "\Images\hys16.ico")
For Each fdr As DataRow In DataTables("基础表").Select("删除=true")
If DataTables("订单").DataCols.Contains(fdr("列号"))
Dim Builder As New ADOXBuilder("接单管理")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("订单")
.DeleteColumn(fdr("列号"))
End With
Builder.Close() '关闭ADOXBuilder
End If
Next
DataTables("基础表").DeleteFor("删除=true")
DataTables.Unload("订单")
DataTables.load("订单")
Dim dt1 As Date = Date.Today.AddYears(-DataTables("one").Datarows(0)("订单最近n年记录"))
Dim dt2 As Date = Date.Today.AddYears(-1)
DataTables("订单").LoadFilter="NO20 >= '" & dt1 & "'"
DataTables("订单").Load
DataTables("二维码流水").LoadFilter="流水日期 >= '" & dt2 & "'"
DataTables("二维码流水").Load
Tables("二维码流水").Sort="流水日期 desc"
Forms("下载中").Close
If webdatatf=True Then
Forms("登录").Open
Else
Forms("连接").Open
End If
Else
MessageBox.show("更新成功,系统重启","提示" )
Application.ReStart
End If
加好友 
发短信
Post By：2021/3/26 13:20:00 [显示全部帖子]
此主题相关图片如下：qq截图20210326131907.png
