请问在人员关联表中有如下字段{"姓名","手机号码","性别","人员类型","人员关系","人员角色"}
怎么实现根据“lsts= DataTables("人员关联表").SQLGetValues("姓名……查找到的姓名
新增告知内容表中的R2（“人员类型”）等于人员关联表中的“人员类型”值呢？
If r4("写入") = "不可写入" Then
Dim lsts As New List(Of String)
lsts= DataTables("人员关联表").SQLGetValues("姓名" ,"部门受案号 = '" & r4("部门受案号") & "' and 操作单位='" & _usergroup & "' ")
For Each lst As String In lsts
Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & lst & "'and 操作单位='" & _usergroup & "' and 部门受案号 = '" & r4("部门受案号") & "' and 审结日期 = '" & r4("审结日期") & "'" )
If dr21 Is Nothing Then '如果不存在同编号的订单
Else
Dim r2 As Row =Tables("告知内容").AddNew
r2("姓名") = lst
r2("部门受案号")=r4("部门受案号")
r2("嫌疑人姓名")=r4("嫌疑人姓名")
r2("是否告知")="否"
r2("告知方式_邮件")="否"
r2("告知方式_短信")="否"
r2("告知方式_QQ")="否"
r2("告知方式_微信")="否"
r2("事项理由")="请注意"
'r2("人员类型")= 需要修正的问题
r2("操作单位")=r4("操作单位")
r2("涉嫌案由")=r4("涉嫌案由")
r2("受理日期")=r4("受理日期")
r2("案件类别")=r4("案件类别")
r2("审结日期")= r4("审结日期")
r2("承办人") = r4("承办人")
r2("案件状态")= "已审结"
r2("序号")= r4("_identify")
r2("移送单位名称")=r4("移送单位名称")
Dim dr22 As DataRow = DataTables("参数表").sqlfind("使用单位='" & _usergroup & "' ")
If dr22 IsNot Nothing Then
r2("案管办电话")=dr22("案管办电话")
r2("举报电话")=dr22("举报电话")
End If
r2.save
End If
Next
End If
加好友 
发短信
Post By：2019/12/27 21:08:00 [只看该作者]
