主题：需求数量与可供给数量匹配的问题(OK)

参考二楼代码，按钮代码这样写。效率如果很慢的话，再优化。

Dim filter As String = "需求日期 > #" & new Date(2014,04,12) & "#"
DataTables("物料需求").DataCols("产品编码").RaiseDataColChanged(filter)

 优化可以参考这一章

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

那样的话，把代码改一下也可以用了。

Dim filter As String = "需求日期 > #" & new Date(2014,04,12) & "#"
For Each dr As DataRow In DataTables("物料需求").Select(filter)
    Dim s As String = "产品编码='" & dr("产品编码") & "' and 交货日期<=#" & dr("需求日期") & "#"
    Dim dr1 As DataRow = DataTables("采购在线").Find(s,"交货日期 Desc")
    If dr1 IsNot Nothing
        dr("可供给量") = dr1("累计交货")
    End If
End If

 感觉过于复杂了，不建议编写那么长的查询语句。

 你这样做吧，你去数据库里建立两个 视图， 把那两个表的sql语句写好，直接引用视图比较好

Select 产品编码,需求日期, 需求数量, (Select Top 1 预计交货 from {视图2} As b where a.产品编码 = b.产品编码 and b.交货日期 <= a.需求日期 order by b.交货日期 desc) As 预计交货 from {视图1} As a

 呃，你说的是不是这个意思？

Select 物料编码, 需求日期,sum(需求数量) As 需求数量, (Select sum(需求数量) from MPS物料明细 b where a.a.物料编码 = b.物料编码 And b.需求日期 <= a.需求日期) As 累计需求 FROM MPS物料明细 a group by 物料编码,需求日期