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

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

共有3082人关注过本帖树形打印复制链接主题：关于列的同步问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/28 18:05:00 [显示全部帖子]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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