以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32066)
--  作者：drcqh
--  发布时间：2013/4/25 10:32:00
--  日期问题
产品名称 价格 执行日期
A 100 2013-3-1
A 105 2013-3-20
A 200 2013-4-1
假如有这么个价格表，如订单是3月1日至3月19日的，应该取3月1日的价格，订单为3月20至3月31日的应取3月20日的价格，请问这个价格日期用代码怎么确定？谢谢！
--  作者：drcqh
--  发布时间：2013/4/25 10:34:00
--  
就是如何确定离订单日期最近的执行价格日期
--  作者：XYT
--  发布时间：2013/4/25 10:43:00
--  
判断订单日期是不是小于新的执行日期大于旧的执行价格日期
--  作者：狐狸爸爸
--  发布时间：2013/4/25 10:47:00
--  

DataColChanged事件，加粗的是关键：

 

Select Case e.DataCol.Name
   Case "日期"
         Dim dr As DataRow = DataTables("价格表").Find("执行日期 <= #" & e.DataRow("日期") & "#", "执行日期 DESC")
         If dr IsNot Nothing Then
               e.DataRow("价格") = dr("价格")
         End If
End Select

 

参考：

http://www.foxtable.com/help/topics/0396.htm

 

[此贴子已经被作者于2013-4-25 10:53:22编辑过]