主题：关于阶段价格更新时，如何写代码实现

现有条件：报价库，销售记录表

报价库中的产品价格是每月更新的。。

希望实现：在销售记录表中。。根据日期中的月份来判断，从报价库相应的日期（月份）里引用对应的价格。。。

 

菜鸟，请教各高手指点。。。如何写代码。。并祈请注释写细点。。万分感谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:问题例子.rar

呵呵，请好好学习一下：

 

Select Case  e.DataCol.Name
    Case "日期","产品"
        If e.DataRow.IsNull("日期") OrElse e.DataRow.IsNull("产品") Then
            e.DataRow("单价") = Nothing
        Else
            Dim d1 As Date = e.DataRow("日期")
            Dim d2 As Date
            Dim Filter As String
            Dim dr As DataRow
            d1 = New Date(d1.Year,d1.Month,1) '取得该月的第一天
            d2 = New Date(d1.Year,d1.Month,Date.DaysInMonth(d1.Year,d1.Month)) '取得该月的最后一天
            Filter = "日期 >= #" & d1  & "# And 日期 <=#" & d2 & "#" '定义查找条件
            dr = DataTables("报价库").Find(Filter, "日期 desc") '找出该月最近一次报价,注意排序参数
            If dr IsNot Nothing  '如果有
                e.DataRow("单价") = dr("单价")
            End If
        End If
End Select

好像不行咯。。。那位前辈帮写进例子。。。。帮我试试。。谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:问题例子.rar

六哥。。。。你搞错了吧。。你发的是我原文件啊（空白的）。。。

我在销售记录的DataColChanged事件设置了代码的，你看看有的单价已经出来了的。

没有啊。。。六哥。。。。。我之前也是把代码贴进去。。。也没有单价显示啊。。。。。。劳烦你检查看看。。你的附件还是空白的咯。。

哦。。原来是我摆了乌龙。。用迅雷下没下成。。我误将我上传的文件当作下载的附件。。。。但销售记录表里也是没单价啊。。

7、9、13行不是有单价吗？

那就其怪了。。。。。我打开还真的没咯。。
此主题相关图片如下：未命名.jpg