主题：根据设定的时间与编号对记录表进行统计

没搞清楚入库和出库两列的作用。
大概是这样吧，DataColChanged事件

Dim dt1,dt2 As DataTable
dt1 = DataTables("入库")
dt2 = DataTables("出库")
Dim sum1,sum2 As Double
Dim d As Date
Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "报表年份" OrElse e.DataCol.Name = "报表月份" Then
    if dr.IsNull("报表年份") = false AndAlso dr.IsNull("报表月份") = false Then
        d = CDate(dr("报表年份") & "-" & dr("报表月份") & "-01")
        sum1 = dt1.Compute("Sum(入库数量)", "[物品编号] = '" & dr("物品编号") & "' And [日期] < #" & d & "#")
        sum2 = dt2.Compute("Sum(出库数量)", "[物品编号] = '" & dr("物品编号") & "' And [日期] < #" & d & "#")
        dr("报表初期数") = dr("初期数") + sum1 - sum2
        dr("报表入库数") = dt1.Compute("Sum(入库数量)", "[物品编号] = '" & dr("物品编号") & "' And [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "#")
        dr("报表出库数") = dt2.Compute("Sum(出库数量)", "[物品编号] = '" & dr("物品编号") & "' And [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "#")
    End if
End If

看到了，入库和出库两列是表达式列，所以也就不必写代码了。
按你所说二楼代码应该差不多了。

首次设置代码后，选中报表年份或报表月份列，点一下重置按钮，以后当在报表年份和报表月份中输入数据后就可以自动统计了。