If Syscmd.Project.Update(False,False) = False Then '如果没有升级
Forms("导航").open()
Forms("背景窗口").open()
DataTables("产品工艺台账").LoadFilter="[校对进程]= '" & True & "'"
DataTables("产品工艺台账").Load
MainTable = Tables("users")
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
Dim dr As DataRow
dr = DataTables("操作日志").AddNew()
dr("操作人员")=user.name
dr("摘要")=user.name & "打开了软件!"
dr("操作时间") = now() '将新增行的日期设为当天日期.
DataTables("操作日志").Save()
DataTables("员工花名册").DataCols("出生年月").RaiseDataColChanged()
DataTables("员工花名册").DataCols("入职日期").RaiseDataColChanged()
applicati
End If
加好友 
发短信
Post By：2021/11/8 19:40:00 [显示全部帖子]
