不同日期的登记怎么分开求和 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

最主要的是这些代码我一个都不认识，英语是一窍不通啊

Select Case e.DataCol.name
Case "入库日期"

if e.OldValue <> nothing
Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "' and 入库日期 = '" & e.OldValue & "'")

        If dr Is Nothing Then
            dr = DataTables("入库").AddNew()
            dr("物资分类") = e.DataRow("物资分类")
            dr("物资名称") = e.DataRow("物资名称")
            dr("物资品牌") = e.DataRow("物资品牌")
            dr("物资类别") = e.DataRow("物资类别")
            dr("物资数量") = e.DataRow("物资数量")
            dr("备注") = e.DataRow("备注")
            dr("物资图片") = e.DataRow("物资图片")
            dr("入库日期") = e.DataRow("入库日期")
        Else
            dr("入库日期") = e.NewValue
        End If

end if

End Select

Select Case e.DataCol.name
    Case "物资分类","物资名称","物资品牌","物资类别","物资数量","物资图片","备注","入库日期"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.NewValue
        End If
End Select

还是不行，这样两个表里都没有的情况下，在通信设备表里增加一行内容时，入库表没有增加。只能在通信设备表里删除行内容时，入库表才会增加一行。

而且，开始的时候，入库表的数量列也没有内容。

我又试了下

通信设备表中新增行后入库表不会同时增加行，然后在返回通信设备表更改入库日期，入库表才能增加行，但是入库表数量列没有值，在返回通信设备表增加一行，入库时间一样，入库表数量列的值也是1部，而不是2部。

之后在通信设备表中增加行，入库日期不同时，入库表不会增加行。在返回通信设备表修改入库日期后会在增加行，但是现在数量列里没有值，而且前面的入库日期也会变为才修改的日期。

请上传实例说明

主题：不同日期的登记怎么分开求和