主题：[求助]同列单元格相加的代码或表达式

DataColChanged事件

Select Case e.DataCol.Name
    Case "第二列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '%" & e.DataRow("第一列") & "%'")
    Case "第一列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '%" & e.DataRow("第一列") & "%'")
        e.DataTable.DataCols("第二列").RaiseDataColChanged("第一列 like '%" & e.OldValue & "%'")
End Select

datacolchanged事件

Select Case e.DataCol.Name
    Case "第二列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
    Case "第一列"
        Dim sum As Double = e.DataTable.Compute("sum(第二列)", "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.ReplaceFor("第三列", sum, "第一列 like '" & e.DataRow("第一列") & "%' or 第一列 like '" & e.DataRow("第一列").replace("媳妇", "") & "%'")
        e.DataTable.DataCols("第二列").RaiseDataColChanged("第一列 like '" & e.oldvalue & "%' or 第一列 like '" & e.oldvalue.replace("媳妇", "") & "%'")
End Select