Case "上级统计所有合伙人_上级"
Dim fdr As DataRow = e.DataTable.sqlFind("上级统计所有合伙人_上级='" & e.DataRow("上级统计所有合伙人_上级") & "'")
Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级='" & e.DataRow("上级统计所有合伙人_上级") & "'")
Dim fdr11 As DataRow =DataTables("贷款每日进度表1").SQLFind("订单原始归属所有合伙人_归属人='" & e.DataRow("上级统计所有合伙人_上级") & "'") '贷款订单信息表1
Dim fdr111 As DataRow =DataTables("贷款每日进度表1").SQLFind("上一级归属所有合伙人_上级='" & e.DataRow("上级统计所有合伙人_上级") & "'") '贷款订单信息表1
Dim fdr1111 As DataRow =DataTables("贷款每日进度表1").SQLFind("上二级归属仅录员工_上上级='" & e.DataRow("上级统计所有合伙人_上级") & "'") '贷款订单信息表1
Dim fdr11111 As DataRow = DataTables("客户需求登记表").SQLFind("归属合伙人='" & e.DataRow("上级统计所有合伙人_上级") & "'") '客户需求登记表
Dim dr As Row = Tables("平台合伙人订单数据").Current
fdr = iif(fdr IsNot Nothing , fdr, iif(fdr1 IsNot Nothing,fdr1, iif(fdr11 IsNot Nothing,fdr11,iif(fdr111 IsNot Nothing,fdr111, iif(fdr1111 IsNot Nothing ,fdr1111,fdr11111)))))
If fdr IsNot Nothing Then
'msgbox("根据")
If fdr = fdr1 Then
dr("登录密码1") = fdr("登录密码2")
ElseIf fdr = fdr11 Then
dr("登录密码1") = fdr("归属人登录密码")
ElseIf fdr = fdr111 Then
dr("登录密码1") = fdr("上一级归属登录密码")
ElseIf fdr = fdr1111 Then
dr("登录密码1") = fdr("上二级归属登录密码")
ElseIf fdr = fdr11111 Then
dr("登录密码1") = fdr("归属登录密码")
End If
If dr("上级统计所有合伙人_上级")=Nothing Then
dr("登录密码1")=Nothing
End If
Else
Dim dr2 As Row = Tables("平台合伙人订单数据").Current
'msgbox("自动")
dr2("登录密码1") ="123456"
If dr2("上级统计所有合伙人_上级")=Nothing Then
dr2("登录密码1")=Nothing
End If
End If
End Select
加好友 
发短信
Post By：2018/5/3 9:30:00 [只看该作者]
此主题相关图片如下：qq截图20180503161654.png