老师:

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

Select Case e.DataCol.name
    Case "明细账_领入起号","明细账_领入止号","明细账_领入张数","姓名","姓名","实物账_发出起号","实物账_发出止号","实物账_发出张数","明细账_今日领入张数","明细账_退票张数","实物账_退票张数","年","月","日","凭证_实物号","年","月","日","凭证_号","明细账_上年结转张数","实物账_上年结转张数","实物账部分_号","实物账部分_上年结转张数"
        If e.DataRow("摘要_内容") > "" AndAlso e.DataRow("摘要_内容") <> "上年结转" AndAlso e.DataRow("摘要_内容") <> "售票"  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("实物账_退票张数") = e.DataRow("明细账_退票张数")
            dr("凭证_号") = e.DataRow("实物账部分_号")
            dr("引用部分") = e.DataRow("摘要_内容")
        End If
       
End Select

老师:

   我自己把问题处理好了.

如果测试正常，那就没问题。

如果有问题，那你就加上msgbox，弹出值，看是否正确，是否误触发。

有点甜老师:

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

上传实例，说明测试步骤。

老师:

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

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

点击浏览该文件:good120.table