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

是的，因为表没有使用加载，所以才想用SQL

在表不加载的前提下，有什么其他更快的方法？

速度确实快了许多。

还有一个问题，我想计算某一期间，期初、期末、入库、出库，这样高效的SQL代码如何写？

窗口在表C中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

期初如何求，这三个数据，如何合成一个表？

期末，我会通过代码实现的。

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

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 & "秒") '计算并显示执行代码所花费的秒数