Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于列的自动填充问题


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

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


加好友 发短信
等级：七尾狐 帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00 		关于列的自动填充问题  发帖心情 Post By：2018/5/7 9:30:00 [只看该作者]

老师，我这样写的话，在我电脑源项目里以及我电脑安装的发布后的客户端里，写了归属合伙人，都能自动出密码，其他电脑也是安装我发布后的客户端，但是写了归属合伙人之后，我发现我这边没有自动出密码的，这是哪里的问题呢，求解
'将密码与名字同步上
Select Case e.DataCol.name
    Case "归属合伙人"
        Dim fdr1 As DataRow = e.DataTable.SQLFind("归属合伙人='" & e.DataRow("归属合伙人") & "'") '客户需求登记表
        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 Row = Tables("客户需求登记表").Current
        Dim fdr01 As DataRow = iif(fdr1 IsNot Nothing, fdr1, iif(fdr11 IsNot Nothing, fdr11, iif(fdr111 IsNot Nothing, fdr111, iif(fdr1111 IsNot Nothing, fdr1111, iif(fdr11111 IsNot Nothing ,fdr11111,iif(fdr111111 IsNot Nothing,fdr111111,fdr1111111))))))
        If fdr01 IsNot Nothing Then
            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("归属人登录密码")
            End If
            If dr1("归属合伙人")=Nothing Then
                dr1("归属登录密码")=Nothing
            End If
        Else
            Dim dr3 As Row = Tables("客户需求登记表").Current
            dr3("归属登录密码") ="123456"
            If dr3("归属合伙人")=Nothing Then
                dr3("归属登录密码")=Nothing
            End If
        End If

End Select



e.DataRow.Save()


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

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180507092548.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

已经解决了

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


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/5/7 10:29:00 [只看该作者]

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()
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，加这一句是为了判别跟正在输入的不是同一行吗

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


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/5/7 13:21:00 [只看该作者]

是的，同一行还有必要自己给自己赋值吗

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


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

好的，谢谢

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


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

老师，这里有个问题，如果是直接复制多行进去的话，那么有一些行是不会自动填充密码的

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/9 10:51:00 [只看该作者]

以下是引用lzw001在2018/5/9 10:34:00的发言：
老师，这里有个问题，如果是直接复制多行进去的话，那么有一些行是不会自动填充密码的

 

上传具体例子说明你的问题。
 回到顶部
帅哥哟，离线，有人找我吗？
lzw001
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

好的

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


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

老师，这个问题已经解决了，现在还有问题就是：
1.当我复制多行到表时，如果行数不够了，就会粘贴不全，这个要怎么设置呢？
2.如果
 回到顶部
总数 15 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.06445 秒, 4 次数据查询