去写Datacolchanged事件代码
Select Case e.DataCol.Name Case "第四列", "第五列", "第六列" Dim r1 As Row = Tables("表A").Rows(0) e.DataRow("第一列") = r1("第四列") * e.DataRow("第四列") + r1("第四列") * e.DataRow("第五列") + r1("第六列") * e.DataRow("第六列")End Select