Select Case e.DataCol.name
Case "归属合伙人"
If e.DataRow.IsNull("归属合伙人") Then
e.DataRow("归属登录密码")=Nothing
Else
Dim fdr1 As DataRow = e.DataTable.SQLFind("归属合伙人='" & e.DataRow("归属合伙人") & "' and [_Identify] <> " & e.DataRow("_Identify")) '客户需求登记表
Dim fdr111111 As DataRow = DataTables("平台合伙人订单数据").sqlFind("上上级非在职合伙人即不填_上上级='" & e.DataRow("归属合伙人") & "'")
Dim fdr11 As DataRow = DataTables("平台合伙人订单数据").sqlFind("上级统计所有合伙人_上级='" & e.DataRow("归属合伙人") & "'")
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("贷款每日进度表1").SQLFind("上二级归属仅录员工_上上级='" & e.DataRow("归属合伙人") & "'") '贷款订单信息表1
Dim fdr1111111 As DataRow = DataTables("代金券客户").sqlFind("归属合伙人='" & e.DataRow("归属合伙人") & "'")
Dim dr1 As DataRow = e.DataRow
If fdr1 IsNot Nothing Then
dr1("归属登录密码") = fdr1("归属登录密码")
ElseIf fdr11 IsNot Nothing Then
dr1("归属登录密码") = fdr11("登录密码1")
ElseIf fdr111 IsNot Nothing Then
dr1("归属登录密码") = fdr111("归属人登录密码")
ElseIf fdr1111 IsNot Nothing Then
dr1("归属登录密码") = fdr1111("上一级归属登录密码")
ElseIf fdr11111 IsNot Nothing Then
dr1("归属登录密码") = fdr11111("上二级归属登录密码")
ElseIf fdr111111 IsNot Nothing Then
dr1("归属登录密码") = fdr111111("登录密码2")
ElseIf fdr1111111 IsNot Nothing Then
dr1("归属登录密码") = fdr1111111("归属人登录密码")
Else
dr1("归属登录密码") ="123456"
End If
End If
End Select
e.DataRow.Save()
加好友 
发短信
Post By：2018/5/7 10:29:00 [显示全部帖子]
