主题：代码效率太低，求助

期初不就是这个日期之前的入库减去这个日期之前的出库吗？

合并表的方法：遍历表A的每一行，从表B中找出编号相同的行，然后将这行某列的值写入表B中对应的行。

 

这样是不是效率又变低了？

这种合并不存在效率问题。

期初数字怎么求呀，只用一行代码

Dim st As Date = Date.Now '将开始时间保存在变量st中

DataTables("表C").DELETEFOR("")
Dim f As New Filler
f.SourceTable = DataTables("表B") '指定数据来源
f.SourceCols = "存货代码" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "存货代码" '指定数据接收列
f.Fill() '填充数据
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数
st = Date.Now '将开始时间保存在变量st中
Dim dt As DataTable
Dim r As DataRow
DataTables("表d").Fill("Select 存货代码, sum(数量) As 数量 From {表B} where 单据类型 like '%入库%' and 日期<=#" & vars("起始日期") & "# Group by 存货代码",True)
For Each dr As Row In Tables("表C").Rows
    r = DataTables("表d").Find("存货代码 = '" & dr("存货代码") & "'") '找出编号为03的产品
    If r IsNot Nothing
        dr("初1")=r("数量")
        dr("期初")=dr("初1")-dr("初2")
        dr("期末")=dr("期初")+dr("入库")-dr("出库")
    End If
Next
DataTables("表d").Fill("Select 存货代码, sum(数量) As 数量 From {表B} where 单据类型 like '%出库%' and 日期<=#" & vars("起始日期") & "# Group by 存货代码",True)
For Each dr As Row In Tables("表C").Rows
    r = DataTables("表d").Find("存货代码 = '" & dr("存货代码") & "'") '找出编号为03的产品
    If r IsNot Nothing
        dr("初2")=r("数量")
        dr("期初")=dr("初1")-dr("初2")
        dr("期末")=dr("期初")+dr("入库")-dr("出库")
    End If
Next
DataTables("表d").Fill("Select 存货代码, sum(数量) As 数量 From {表B} where 单据类型 like '%出库%' and 日期>=#" & vars("起始日期") & "# and 日期<=#" & vars("截止日期") & "# Group by 存货代码",True)
For Each dr As Row In Tables("表C").Rows
    r = DataTables("表d").Find("存货代码 = '" & dr("存货代码") & "'") '找出编号为03的产品
    If r IsNot Nothing
        dr("出库")=r("数量")
        dr("期末")=dr("期初")+dr("入库")-dr("出库")
    End If
Next
DataTables("表d").Fill("Select 存货代码, sum(数量) As 数量 From {表B} where 单据类型 like '%入库%' and 日期>=#" & vars("起始日期") & "# and 日期<=#" & vars("截止日期") & "# Group by 存货代码",True)
For Each dr As Row In Tables("表C").Rows
    r = DataTables("表d").Find("存货代码 = '" & dr("存货代码") & "'") '找出编号为03的产品
    If r IsNot Nothing
        dr("入库")=r("数量")
        dr("期末")=dr("期初")+dr("入库")-dr("出库")
    End If
Next
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

抛砖引玉

效率很高，希望高手能简化代码。

你在考狐爸!

最好还是用Select语句解决，建议你去csdn的SQL Server论坛问问，那里高手如云。

俺不懂SQL，我现在知道的，全部是在本论坛上学的。