昨天没有解决的遗留问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 昨天没有解决的遗留问题

共有8682人关注过本帖树形打印复制链接主题：昨天没有解决的遗留问题

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/21 15:48:00 [显示全部帖子]

表达式的话，比较麻烦，还是写一小段代码解决的比较好。

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/21 16:04:00 [显示全部帖子]

增加了这段代码

Select Case e.DataCol.Name
    Case "产品名称", "客户名称"
        If e.DataRow("产品名称") <> "" AndAlso e.DataRow("客户名称") <> "" Then
            Dim dr As DataRow = DataTables("特殊价格表").Find("特殊客户 = '" & e.DataRow("客户名称") & "' And 特殊品种 = '" & e.DataRow("产品名称") & "'", "_Identify desc")
            If dr Is Nothing Then
                Dim pdr As DataRow = e.DataRow.GetParentRow("产品表")
                e.DataRow("单价") = pdr("价格")
            Else
                e.DataRow("单价") = dr("特殊单价")
            End If
        End If
End Select