主题：[求助]关于代码编制的问题

这回实现了，我在数据录入表里输入总码后，只要是收发存为“收”，收表里就会显示，可是问题又出来了，当数据录入表里新增一项物资，如果和收表已经自动录入的总码相同，那么数量新值会自动覆盖旧值，不符合设计要求，希望新值数量填入收表的新增行中，而不是覆盖旧值，新增行的数量空着。这个代码该如何修改呢？

 Case  "数量","金额"
        If e.DataRow("出入库") = "收"  OrElse  e.DataRow("出入库") = "发"  AndAlso e.DataRow("库字") = "寄售" Then
            Dim dr As DataRow = DataTables("收").Find("总码 = '" & e.DataRow("总码") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
        End if

 

我想问题是否出现在这一块，但不知道怎么修改。

甜老师，还是不对，我又琢磨了下，发现在“数据录入”表里，粘贴总码，对应项自动在“数据录入”表里生成，第一笔都正常显示，从第二笔（第二行）开始，此时填入和第一行相同的总码，如果我先在“数据录入”表里[出入库]列中选择字符“收”，再填入数量，“收”表里就发生：两行都按要求显示出来，只是第二次的数量覆盖了第一次的数量，造成第一次“收”的数据丢失。如果我先填入数量，再在[出入库]列中选填“收”，结果符合设计要求，两行正常显示，数量也正常显示，一切正常。估计这是事件激发顺序所致，需要增加一些判断语句。我现在是把[出入库]列，向右移动至[数量]列的右边，人为强行先填数量，避免上述问题。

     还有，第一行总码已经激发事件自动填充到“收”表里，如果我在“数据录入”表里要重新粘贴总码在第一行（更改的意思），那数据就乱套了（收表里旧数据依然存在，又新增一行数据），这不对。目前只能在哪一行粘贴总码后，如果有问题需要修改，只能删除数据录入表里的需要修改的那一行，那么收表里也就相应删除了这一行。

而且，如果数量填完，就不能修改，否则，修改的数量又填充到第一笔去了。

 ElseIf e.DataRow("出入库") = "发" Then
           
            '这里写代码
        End If
End Select
  

   老师还需要写什么代码啊？

老师，请问我做的收发存仓库管理系统，现在出现数据录入里改动了经手人、数量等列内容后，以前已经编号的信息行（自动生成的日期、经手人）为何也会改变，如何只改变新增行的日期和经手人，而不动已经生成好的日期呢？