不同日期的登记怎么分开求和 - 专家坐堂 - 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

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