通过什么方式升级的，http还是ftp
If Syscmd.Project.Update(False,False) = False then
Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("员工资料").Find("合同结束日期 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("有员工合同即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
Output.Logs("").Save(ProjectPath & "登录标志.txt",True)
Dim fdr As DataRow
fdr = DataTables("营业款").sqlfind("日期= '" & Date.Today & "' And 店名= '" & User.name & "'" )
If fdr Is Nothing Then
fdr = DataTables("营业款").addnew
fdr("日期") = Date.Today
fdr("店名") = User.name
'fdr("对账品名") = "linle"
fdr.save
End If
End If
加好友 
发短信
Post By：2022/4/22 15:04:00 [显示全部帖子]
