主题：日期问题

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