以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于列的同步问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118305)
--  作者：lzw001
--  发布时间：2018/4/28 15:40:00
--  关于列的同步问题
老师，我的意思是：当我在“上上级非在职合伙人即不填_上上级”这一列中输入内容时，先查找输入内容是否有相同匹配的值，如果有，则“登录密码2”的值就为匹配的值，否则，“登录密码2”值就为“123456”。当我将“上上级非在职合伙人即不填_上上级”这一列的内容删除时，“登录密码2”这一列的值也清空，我这里这样写，输入一个数字时，项目就会马上关闭，是哪里的问题呢?

datacolchanged代码：
\'将密码与名字同步上
Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级=\'" & e.DataRow("上上级非在职合伙人即不填_上上级") & "\'")
If fdr1 IsNot Nothing Then
    Dim dr1 As Row = Tables("平台合伙人订单数据").Current
    dr1("登录密码2") = fdr1("登录密码2")
Else
    Dim dr3 As Row = Tables("平台合伙人订单数据").Current
    dr3("登录密码2") ="123456"
    If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
        dr3("登录密码2")=Nothing
    End If
End If
--  作者：有点甜
--  发布时间：2018/4/28 15:46:00
--  

Select Case e.DataCol.name
    Case "上上级非在职合伙人即不填_上上级", "登录密码2"
        Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级=\'" & e.DataRow("上上级非在职合伙人即不填_上上级") & "\'")
        If fdr1 IsNot Nothing Then
            Dim dr1 As Row = Tables("平台合伙人订单数据").Current
            dr1("登录密码2") = fdr1("登录密码2")
        Else
            Dim dr3 As Row = Tables("平台合伙人订单数据").Current
            dr3("登录密码2") ="123456"
            If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr3("登录密码2")=Nothing
            End If
        End If
End Select
--  作者：lzw001
--  发布时间：2018/4/28 16:03:00
--  
老师，按照你写的这样子，我在 上上级非在职合伙人即不填_上上级  这一列中输入了 张三，登录密码显示了123456，但是等我准备删张三时，刚按delete键，就卡住了，张三没删除，直接退出项目了
--  作者：有点甜
--  发布时间：2018/4/28 16:05:00
--  
Select Case e.DataCol.name
    Case "上上级非在职合伙人即不填_上上级"
        Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级=\'" & e.DataRow("上上级非在职合伙人即不填_上上级") & "\'")
        If fdr1 IsNot Nothing Then
            Dim dr1 As Row = Tables("平台合伙人订单数据").Current
            dr1("登录密码2") = fdr1("登录密码2")
        Else
            Dim dr3 As Row = Tables("平台合伙人订单数据").Current
            dr3("登录密码2") ="123456"
            If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr3("登录密码2")=Nothing
            End If
        End If
End Select
--  作者：lzw001
--  发布时间：2018/4/28 17:09:00
--  
可以了，谢谢
--  作者：lzw001
--  发布时间：2018/4/28 17:53:00
--  
老师，出现这个问题是什么原因呢，我的意思是查找多个表后，只要有一个对应的上的，就将密码赋值给它
\'将密码与名字同步上
Select Case e.DataCol.name
    Case "上上级非在职合伙人即不填_上上级"
        Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级=\'" & e.DataRow("上上级非在职合伙人即不填_上上级") & "\'")
        Dim fdr11 As DataRow = e.DataTable.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
        If fdr1 IsNot Nothing OrElse fdr11 IsNot Nothing OrElse fdr111 IsNot Nothing OrElse fdr1111 IsNot Nothing OrElse fdr11111 IsNot Nothing  Then
            Dim dr1 As Row = Tables("平台合伙人订单数据").Current
            dr1("登录密码2") = fdr1("登录密码2")
            If dr1("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr1("登录密码2")=Nothing
            End If
        Else
            Dim dr3 As Row = Tables("平台合伙人订单数据").Current
            dr3("登录密码2") ="123456"
            If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr3("登录密码2")=Nothing
            End If
        End If
        
    Case "上级统计所有合伙人_上级"
        Dim fdr As DataRow = e.DataTable.sqlFind("上级统计所有合伙人_上级=\'" & e.DataRow("上级统计所有合伙人_上级") & "\'")
        Dim fdr1 As DataRow = e.DataTable.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
        
        If fdr IsNot Nothing OrElse fdr1 IsNot Nothing OrElse fdr111 IsNot Nothing OrElse fdr1111 IsNot Nothing OrElse fdr11111 IsNot Nothing   Then
            Dim dr As Row = Tables("平台合伙人订单数据").Current
            dr("登录密码1") = fdr("登录密码1")
            If dr("上级统计所有合伙人_上级")=Nothing Then
                dr("登录密码1")=Nothing
            End If
        Else
            Dim dr2 As Row = Tables("平台合伙人订单数据").Current
            dr2("登录密码1") ="123456"
            If dr2("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr2("登录密码1")=Nothing
            End If
        End If
End Select

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180428175133.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180428175413.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/4/28 18:05:00
--  
Dim dr1 As Row = Tables("平台合伙人订单数据").Current
fdr1 = iif(fdr1 IsNot Nothing, fdr1, iif(fdr11 IsNot Nothing, fdr11, iif(fdr111 IsNot Nothing, fdr111, iif(fdr1111 IsNot Nothing, fdr1111, fdr11111))))
dr1("登录密码2") = fdr1("登录密码2")
If dr1("上上级非在职合伙人即不填_上上级")=Nothing Then
    dr1("登录密码2")=Nothing
End If
--  作者：lzw001
--  发布时间：2018/5/3 8:56:00
--  
老师，这里是直接判断是否查找有值，然后赋值给它，但是如果没找到的话呢，我想让登录密码2自动为123456，这里应该怎么连起来呢
--  作者：lzw001
--  发布时间：2018/5/3 8:57:00
--  
\'将密码与名字同步上
Select Case e.DataCol.name
    Case "上上级非在职合伙人即不填_上上级"
        Dim fdr1 As DataRow = e.DataTable.sqlFind("上上级非在职合伙人即不填_上上级=\'" & e.DataRow("上上级非在职合伙人即不填_上上级") & "\'")
        Dim fdr11 As DataRow = e.DataTable.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

        
     \'   If fdr1 IsNot Nothing OrElse fdr11 IsNot Nothing OrElse fdr111 IsNot Nothing OrElse fdr1111 IsNot Nothing OrElse fdr11111 IsNot Nothing  Then
            Dim dr1 As Row = Tables("平台合伙人订单数据").Current
     fdr1 = iif(fdr1 IsNot Nothing, fdr1, iif(fdr11 IsNot Nothing, fdr11, iif(fdr111 IsNot Nothing, fdr111, iif(fdr1111 IsNot Nothing, fdr1111, fdr11111)))) 
            dr1("登录密码2") = fdr1("登录密码2")
            If dr1("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr1("登录密码2")=Nothing
            End If
        Else
            Dim dr3 As Row = Tables("平台合伙人订单数据").Current
            dr3("登录密码2") ="123456"
            If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
                dr3("登录密码2")=Nothing
            End If
        End If
--  作者：有点甜
--  发布时间：2018/5/3 9:06:00
--  
Dim dr1 As Row = Tables("平台合伙人订单数据").Current
fdr1 = iif(fdr1 IsNot Nothing, fdr1, iif(fdr11 IsNot Nothing, fdr11, iif(fdr111 IsNot Nothing, fdr111, iif(fdr1111 IsNot Nothing, fdr1111, fdr11111))))
If fdr1 IsNot Nothing Then
    dr1("登录密码2") = fdr1("登录密码2")
    If dr1("上上级非在职合伙人即不填_上上级")=Nothing Then
        dr1("登录密码2")=Nothing
    End If
Else
    Dim dr3 As Row = Tables("平台合伙人订单数据").Current
    dr3("登录密码2") ="123456"
    If dr3("上上级非在职合伙人即不填_上上级")=Nothing Then
        dr3("登录密码2")=Nothing
    End If
End If