If e.DataRow("是否关联") ="是" Then
Dim dr2 As DataRow = DataTables("告知内容").Find("部门受案号 = '" & e.DataRow("部门受案号") & "' and 流程时间 = #" & e.DataRow("审结日期") & "# ")
Dim dr1 As DataRow = DataTables("人员关联表").Find("部门受案号 = '" & e.DataRow("部门受案号") & "' ")
Dim dr As DataRow
Dim s As String
If e.DataRow("审结处理结果") Is Nothing Then
dr = DataTables("告知内容").AddNew()
s = "已审结"
Else
If dr22 IsNot Nothing Then
If dr2("姓名")<>dr1("姓名") Then '查找告知内容表中 如果姓名等于人员关联表姓名
dr = DataTables("告知内容").AddNew()
s = "办理中"
End If
End If
End If
dr("部门受案号")=e.DataRow("部门受案号")
dr("嫌疑人姓名")=e.DataRow("嫌疑人姓名")
dr("是否告知")="否"
dr("注意事项")="请注意"
dr("案件状态")= s
dr("涉嫌案由")=e.DataRow("涉嫌案由")
dr("案件类别")=e.DataRow("案件类别")
dr("流程时间")= e.DataRow("审结日期")
dr("姓名")=dr1("姓名")
End If
试试，具体问题具体分析，最好上实例
[此贴子已经被作者于2019/2/19 10:20:22编辑过]
加好友 
发短信
Post By：2019/2/19 10:20:00 [显示全部帖子]
