关于列的自动填充问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我这样写的话，在我电脑源项目里以及我电脑安装的发布后的客户端里，写了归属合伙人，都能自动出密码，其他电脑也是安装我发布后的客户端，但是写了归属合伙人之后，我发现我这边没有自动出密码的，这是哪里的问题呢，求解

'将密码与名字同步上

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 Select

e.DataRow.Save()

此主题相关图片如下：qq截图20180507092616.png

此主题相关图片如下：qq截图20180507092548.png

主题：关于列的自动填充问题