以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不同客户不同售价  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147775)
--  作者：冷泉
--  发布时间：2020/3/23 22:54:00
--  不同客户不同售价
麻烦老师指导下，下面代码应该要如何整合了？

----调用商品资料信息------
If e.DataCol.Name = "商品编号" Then
    Dim nms() As String = {"商品名称","单位","规格","销售价"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("商品资料").Find("[商品编号] = \'" & e.NewValue & "\'") 
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

-----获取不同客户最新销售价-----
If e.DataCol.Name = "客户名称" Or e.DataCol.Name = "商品编号" Then
Dim dr1 As DataRow
Dim Filter As String
Filter = "[客户名称] = \'" & e.DataRow("客户名称") & "\' And [商品编号] = \'" & e.DataRow("商品编号") & "\' And [_Identify] <> " & e.DataRow("_Identify")
dr1 = DataTables("出库").Find(Filter ,"日期 Desc")
If dr1 IsNot Nothing Then
e.DataRow("销售价") = dr1("销售价")
End If
End If
--  作者：有点蓝
--  发布时间：2020/3/23 23:01:00
--  
只能分开处理，有什么问题？
--  作者：冷泉
--  发布时间：2020/3/23 23:07:00
--  
代码都放到 DataColChanged事件，好像还是会自动提取商品资料的原始价格，不会提取最新的客户商品单价
--  作者：有点蓝
--  发布时间：2020/3/24 8:36:00
--  
代码在哪个表的？上面代码先查商品资料，如果有"客户名称" 和"商品编号"值就去查出库表赋值，是不是出库表没有对应的数据，或者数据没有加载