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

就是我有两个表，其中一个是入库，一个是通信设备。我是在通信设备中增加行，同时入库表也会增加一行。

 

比如，我今天买了20部对讲机，那么品牌，型号是一样，但是对讲机ID不一样，那么在通信设备表中我要每个登记；然而，在入库表中却只显示一行信息，也就是说在入库表中只显示品牌，型号，类别和数量，这个数量就是20部。

 

过段时间我觉得这个牌子的对讲机好用，那么我有购买了10部，这里，还是和上面说的一样，今天买的要在入库表中要显示是今天入库的10部对讲机，而不是把数量加到上次的入库登记。

 

最终一句话，就是今天的入库登记和上次的入库登记要分开求和。通信设备表中始终要把每个设备分开登记。

 

这个该怎么写代码？求大神教教

那该怎么写代码呢？

用关联表数量列也得用Sum求和，那样的话和用这样的代码是一样的

 If e.DataCol.name = "物资名称" Then
            Dim kc As String = "[物资名称] = '" & e.NewValue & "'"
            e.DataRow("数量_入库") = DataTables("入库").Compute("sum(物资数量)", kc)
            e.DataRow("数量_出库") = DataTables("出库").Compute("sum(物资数量)", kc)
        End If
最主要的是，我今天入库的东西和明天入库的东西要按照入库时间分开，也就是要有两行。但是通信设备表里得要分为多行。

我把通信设备表事件写的这个代码，这样我在通信设备表增加行时，入库表也会增加行，所以我想请教各位大神入库表的代码怎么写，才能按照日期来分行显示

Select Case e.DataCol.name
    Case "物资名称"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & 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("物资图片")
        Else
            dr("物资名称") = e.NewValue
        End If
    Case "物资分类","物资名称","物资品牌","物资类别","物资数量","物资图片","备注"
        Dim dr As DataRow = DataTables("入库").Find("物资名称 = '" & e.DataRow("物资名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.NewValue
        End If
End Select

用时间列会出错，有个提示我记不得是什么 = String，   好像是这样

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

 

 

我不知道这个代码该怎么该，错误提示

此主题相关图片如下：1585209746(1).png

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

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

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

我又试了下

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

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