主题：同步增加行有误

老师:

      明细账表的数据增加了一行,同时非关联表的实物账也增加了一行,但却是从实物账表的前几行加的,不是在最后一行增加行,是不是因为实物账的前几行是上年结转行,而这行的其他列值是空的 原因?以下是代码和截图.

Select Case e.DataCol.name
    Case "明细账_领入起号","明细账_领入止号","明细账_领入张数","姓名","姓名","实物账_发出起号","实物账_发出止号","实物账_发出张数","明细账_今日领入张数","明细账_退piao张数","实物账_退piao张数","年","月","日","凭证_实物号","年","月","日","凭证_号","明细账_上年结转张数","实物账_上年结转张数","实物账部分_号","实物账部分_上年结转张数"
        If e.DataRow("摘要_内容") > "" AndAlso e.DataRow("摘要_内容") <> "上年结转" AndAlso e.DataRow("摘要_内容") <> "售piao"  Then
            Dim dr As DataRow = DataTables("实物账").Find("id2 = '" & e.DataRow("_Identify") & "'")
            If dr Is Nothing Then
                dr = DataTables("实物账").AddNew()
                dr("id2") = e.DataRow("_Identify")
            End If
            dr("实物账_发出起号") = e.DataRow("明细账_领入起号")
            dr("姓名") = e.DataRow("姓名")
            dr("年") = e.DataRow("年")
            dr("月") = e.DataRow("月")
            dr("日") = e.DataRow("日")
            dr("实物账_今日发出张数") = e.DataRow("明细账_今日领入张数")
            dr("实物账_退piao张数") = e.DataRow("明细账_退piao张数")
            dr("凭证_号") = e.DataRow("实物账部分_号")
            dr("引用部分") = e.DataRow("摘要_内容")
        End If
       
End Select

 

此主题相关图片如下：一.png


此主题相关图片如下：二.png


此主题相关图片如下：三.png

老师:

   我自己把问题处理好了.

我也不知道对不对,只是现在问题解决了.我把不必要的变动列删除了,以前加的变动到太多了.

有点甜老师:

　　　以上的问题还是没有解决。请看1楼的代码

 

老师:

      这是我在明细账的表属性设的代码,同步引用到实物账的相对数据,可是代码写的有误,在明细账表后录入的数据,却在实物账的前几行同步更新,而且把实物账原有的数据覆盖.请有点甜老师改一下.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:good120.table

请老师看第1楼.10天前就上传了啊.

老师:

    我把录入的步骤拍了4张图,在1图中录入相应数据,得到2图结果,在3图录入相应数据,得到4图结果,但在4图中,你会发现已经把2图的中的第一行数据覆盖了,这就是我所说的问题.

         请老师给改一下明细账表中的相应代码.

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


此主题相关图片如下：2.jpg


此主题相关图片如下：3.png


此主题相关图片如下：4.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:good120.table

老师:

我测试了一下,还是有问题.我在图5的明细账表中录入的最后一行数据,同步更新的图6却又加到实物账表的第三行了.把原来的第三行的"上年结转"的行给覆盖了.

此主题相关图片如下：5.png


此主题相关图片如下：6.png

老师:

      我又测试了一下,在明细账表上又新增了一行,还是同样的问题.你刚才说加的id3是在明细表中加吗??请老师再改一下,或者给我传一份改过的表.

老师:

    数据覆盖问题终于解决了.但如果明细账的一行其中的起号,止号或日期,姓名等有变动和更改,实物账的相对应数据却没有改变.也就是明细账表的数据有更改和变动,不能同步更新到实物账.

 

此主题相关图片如下：8.png


此主题相关图片如下：7.png