跨表引用的自动更新求代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表引用的自动更新求代码

共有6718人关注过本帖树形打印复制链接主题：跨表引用的自动更新求代码

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/14 9:13:00 [显示全部帖子]

没办法根据你的代码看懂你的业务逻辑。

你直接用一两条数据为例，告诉我们你的工作流程和希望得到的结果。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/14 14:29:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "是否完成"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr("是否完成") = False Then
            dr("结算人") = Nothing
        Else
            Dim filter As String
            filter = "客户全称 = '" & dr("客户全称") & "'"
            pr = DataTables("客户结算对应表").Find(filter)

            If pr IsNot Nothing Then
                dr("结算人") = pr("结算人")
            Else
                MessageBox.Show("此客户未曾登记")
            End If
        End If
End Select

下一主题 >> << 上一主题

主题：跨表引用的自动更新求代码