Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于列的同步问题


  共有3075人关注过本帖树形打印复制链接

主题：关于列的同步问题
帅哥哟，离线，有人找我吗？
lzw001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		关于列的同步问题  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2018/4/28 16:03:00 [只看该作者]

老师，按照你写的这样子，我在 上上级非在职合伙人即不填_上上级  这一列中输入了 张三，登录密码显示了123456，但是等我准备删张三时，刚按delete键，就卡住了，张三没删除，直接退出项目了

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2018/4/28 17:09:00 [只看该作者]

可以了，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：2018/5/3 8:56:00 [只看该作者]

老师，这里是直接判断是否查找有值，然后赋值给它，但是如果没找到的话呢，我想让登录密码2自动为123456，这里应该怎么连起来呢

 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询