主题：昨天没有解决的遗留问题

lin大说要建个数据,关于提到的解决方法都新建。帮忙看怎么写表达式

（更正还得到了muhua 的帮忙 表示感谢）

lin大在哪里添加的？（脸红中）

lin大的修改中将原有的折扣除去了。

可不可以做个改进？

 如果特殊价格表中没有特殊价格  则执行：全价*客户表里的折扣？

lin大，如果这样修改一下会不会有问题？刚刚测试好像没什么问题 求理论

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("产品表")
                Dim odr As DataRow =  e.DataRow.getparentrow("客户表")
                e.DataRow("单价") = pdr("价格") * odr("折扣")
            Else
                e.DataRow("单价") = dr("特殊单价")
            End If
        End If
End Select