主题：主子表 用fiter 实施联动 发现子表金额变化了 主表为0

主子表 用fiter 实施联动 发现子表金额变化了 主表为0 代码如下

If e.DataCol.Name = "数量"  OrElse e.DataCol.Name = "单价" OrElse e.DataCol.Name = "金额"  Then
    e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
    Tables("销售单").Current("金额") = Tables("销售单明细").Compute("sum(金额)")
    Tables("销售单").Current("数量") = Tables("销售单明细").Compute("sum(数量)")
End If
If Forms("销售单").opened()
    vars("ljs")=Tables("销售单").current("数量")
    Forms("销售单").Controls("Label8").text=cumoney(vars("ljs"))+"   小写: " & vars("ljs")
End If
 帮助看一下

我不用关联的

金额 联动不起来 帮忙看一下 代码 ，

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

点击浏览该文件:主子表联动 用filter.zip

子表的金额 不等于主表

多谢

不知道 错在哪里

恩 我原来写在主表的 positionchanged 事件中 和子表的datachaned事件中  不知道代码错在哪里

还有你帮我写的这个

If  e.DataCol.Name = "金额"  Then
    Dim filter As String = "销售单号 = '" & e.DataRow("销售单号") & "'"
    If e.DataCol.Name = "数量"  OrElse e.DataCol.Name = "单价" OrElse e.DataCol.Name = "金额"  Then
        Dim pdr As DataRow = DataTables("销售主表").Find(filter)
        pdr("销售金额") = e.DataTable.Compute("sum(金额)",filter)
    End If
End If

粉红的可以去掉的 不知对不对