Select Case e.DataCol.Name
Case "进场日期","材料名称","审核结果"
If e.DataRow("审核结果").Contains("符合要求") Then
Dim drs As List(Of DataRow) = e.DataTable.Select("进场日期 = #" & e.DataRow("进场日期") & "# And 审核结果 = '" & e.DataRow("审核结果") & "'", "_Sortkey")
Dim str As String
Dim lst As New List(Of String)
For Each dr As DataRow In drs
If lst.Contains(dr("材料名称")) = False Then
lst.Add(dr("材料名称"))
End If
dr.Save()
Next
str = String.Join(",",lst.ToArray)
drs(0)("每日摘要") = str.Trim(",","")
For i As Integer = 1 To lst.Count - 1
drs(i)("每日摘要") = Nothing
Next
End If
If e.DataCol.Name = "进场日期" AndAlso e.OldValue <> Nothing Then
Dim drs As List(Of DataRow) = e.DataTable.Select("进场日期 = #" & e.OldValue & "# And 审核结果 = '" & e.DataRow("审核结果") & "'", "_Sortkey")
Dim str As String
Dim lst As New List(Of String)
For Each dr As DataRow In drs
If lst.Contains(dr("材料名称")) = False Then
lst.Add(dr("材料名称"))
End If
dr.Save()
Next
str = String.Join(",",lst.ToArray)
drs(0)("每日摘要") = str.Trim(",","")
For i As Integer = 1 To lst.Count - 1
drs(i)("每日摘要") = Nothing
Next
End If
End Select
加好友 
发短信
Post By：2018/12/21 22:12:00 [显示全部帖子]
