- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码执行不了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128292)
-- 发布时间：2018/12/3 12:15:00
-- 代码执行不了
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "审核"
If e.NewValue = True Then
If e.DataCol.Name.Contains("审核人")
Then
dr("审核人")
= User.Name
ElseIf e.DataCol.Name.Contains("审核日期")
Then
dr("审核日期")
= Date.Today
End If
Else
If e.DataCol.Name.Contains("审核人")
Then
dr("审核人")
= Nothing
ElseIf
e.DataCol.Name.Contains("审核日期") Then
dr("审核日期") = Nothing
End
If
End If
End Select
需求是最后在全局代码中写入，如果表中有“审核”列时，“审核人”、“审核日期”（这二个不一定有或全有）如果有就执行，没有就return
-- 发布时间：2018/12/3 12:51:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "审核"
If e.NewValue = True Then
If e.DataCol.Name.Contains("审核人") Then
dr("审核人") = User.Name
End If
If e.DataCol.Name.Contains("审核日期") Then
dr("审核日期") = Date.Today
End If
Else
If e.DataCol.Name.Contains("审核人") Then
dr("审核人") = Nothing
End If
If e.DataCol.Name.Contains("审核日期") Then
dr("审核日期") = Nothing
End If
End If
End Select
-- 发布时间：2018/12/3 13:26:00
--
还是不行？？
-- 发布时间：2018/12/3 13:48:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "审核"
If e.NewValue = True Then
If e.DataTable.DataCols.Contains("审核人") Then
dr("审核人") = User.Name
End If
If e.DataTable.DataCols.Contains("审核日期") Then
dr("审核日期") = Date.Today
End If
Else
If e.DataTable.DataCols.Contains("审核人") Then
dr("审核人") = Nothing
End If
If e.DataTable.DataCols.Contains("审核日期") Then
dr("审核日期") = Nothing
End If
End If
End Select