主题：日期问题

产品名称	价格	执行日期
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日的价格，请问这个价格日期用代码怎么确定？谢谢！

就是如何确定离订单日期最近的执行价格日期

判断订单日期是不是小于新的执行日期大于旧的执行价格日期

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