项目事件
LoadUserSetting
If User.Name = "管理员"
Then
DataTables("工作日志基础数据").LoadFilter
= ""
Else
DataTables("工作日志基础数据").LoadFilter
= "填报人 = '" & User.Name & "'"
End If
DataTables("工作日志基础数据").Load()
DataTables("工作日志基础数据").DataCols("日期").RaiseDataColChanged
表事件
工作日志基础数据_DataColChanged
If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动
If e.NewValue = True Then '而且变动后的值是True(已勾选)
If e.DataRow.isnull("结账")=False Then '而且变动后的值是True(已勾选)
Dim tv As Date = e.DataRow("日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 10 Then '如果订单已经超过10天
e.DataRow.Locked = True '那么锁定此行
End If
End If
End If
End If
工作日志基础数据_DataRowAdding
e.DataRow("填报人") = User.name
'新增行.20200826
e.DataRow("日期") =
Date.Today()
e.DataRow("编号") =
e.DataTable.Compute("Max(编号)") + 1
工作日志基础数据_DataRowLockedChanging
If e.DataRow("结账") =
False Then '未审核通过的行
If e.DataRow.Locked = False Then '如果此行目前未锁定,也就是准备锁定此行
Dim tv As Date = e.DataRow("日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 10 Then '如果订单已经超过10天
e.DataRow.Locked = True '那么锁定此行
End If
Messagebox.show("不能锁定未审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
ElseIf e.DataRow("结账")
= True Then '已经结账通过的行
If e.DataRow.Locked = True Then '如果此行已锁定,也就是准备取消锁定此行
If User.Group <> "管理员"
Then
Messagebox.show("只有管理员才能解锁已经审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End If