以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么根据查询到的集合值，再次获取表中的人员类型字段值呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144728)
--  作者：李孝春
--  发布时间：2019/12/27 21:08:00
--  怎么根据查询到的集合值，再次获取表中的人员类型字段值呢？
请问在人员关联表中有如下字段{"姓名","手机号码","性别","人员类型","人员关系","人员角色"}
怎么实现根据“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
--  作者：有点蓝
--  发布时间：2019/12/27 21:49:00
--  
方法1、使用sqlfind到人员关联表查出对应的行，再赋值
2、
    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(0) & "\'and 操作单位=\'" & _usergroup & "\'  and  部门受案号 = \'" & r4("部门受案号") & "\' and 审结日期 = \'" & r4("审结日期") & "\'" )
    r2("人员类型")=   lst(1)