|
If e.DataCol.Name = "校对" OrElse e.DataCol.Name = "审核" OrElse e.DataCol.Name = "批准" Then
Dim pdr As DataRow = DataTables("表B").find("任务索引 = '" & e.DataRow("任务索引") & "'")
If pdr IsNot Nothing Then
Dim str As String = ""
Dim str1 As String = ""
Dim str2 As String = ""
For Each drr As DataRow In DataTables("表A").Select("任务索引 = '" & e.DataRow("任务索引") & "'")
str & = iif(drr.isnull("校对"), "", drr("校对") & ",")
str1 & = iif(drr.isnull("审核"), "", drr("审核") & ",")
str2 & = iif(drr.isnull("批准"), "", drr("批准") & ",")
Next
pdr("指定质量评价人") = (str & str1 & str2).trim(",")
End If
End If
|
加好友 
发短信
Post By：2017/10/9 11:51:00 [显示全部帖子]
