主题：[求助]有条件的统计子表

甜老师：我根据你的指点，把代码改写了一点，放到正在编制的表上，fa piao登记表和汇总表不能实现即时的，只有在删除汇总表里的行以后才会汇总。不知道错在哪里？请老师看看。谢谢。

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

点击浏览该文件:机械管理系统.table

 回复11楼，你的【fa piao登记表】的代码要这样写

Select Case e.DataCol.Name
    Case "入账"
        Dim fdr As DataRow = DataTables("入账汇总").Find("单位名称='" & e.DataRow("单位名称") & "'" )
        If fdr Is Nothing Then
            fdr = DataTables("入账汇总").AddNew
            fdr("单位名称") = e.DataRow("单位名称")
        Else
            DataTables("入账汇总").DataCols("单位名称").RaiseDataColChanged("单位名称='" & e.DataRow("单位名称") & "'" )
        End If
End Select