Case "是否关联" ,"审结处理结果"
If e.DataRow("是否关联") ="是" Then
Dim dr1 As DataRow = DataTables("人员关联表").Find("部门受案号 = '" & e.DataRow("部门受案号") & "'
If dr1 IsNot Nothing Then
Dim dr2 As DataRow
If e.DataRow.Isnull("审结处理结果") Then
dr2 = DataTables("告知内容").AddNew()
dr2("案件状态")="已审结"
Else
Dim dr22 As DataRow = DataTables("告知内容").Find("部门受案号 = '" & e.DataRow("部门受案号") & "' and 流程时间 = #" & e.DataRow("受理日期") & "# and 姓名= '" & dr1("姓名") & "'")
If dr22 Is Nothing Then '如果不存在同编号的订单
dr2 = DataTables("告知内容").AddNew()
dr2("案件状态")="办理中"
End If
End If
If dr2 IsNot Nothing Then
dr2("部门受案号")=e.DataRow("部门受案号")
dr2("嫌疑人姓名")=e.DataRow("嫌疑人姓名")
dr2("是否告知")="否"
dr2("注意事项")="请注意"
dr2("涉嫌案由")=e.DataRow("涉嫌案由")
dr2("案件类别")=e.DataRow("案件类别")
dr2("流程时间")= e.DataRow("审结日期")
dr2("姓名")=dr1("姓名")
End If
End If
End If
加好友 
发短信
Post By：2019/2/19 10:30:00 [显示全部帖子]
