datacolchanged事件If e.DataCol.name = "列1" OrElse e.DataCol.name = "列2"
If e.DataRow.isnull("列1") OrElse e.DataRow.isnull("列2") Then
e.DataRow("列3') = nothing
else
dim d as double = e.datatable.compute("Avg(列2)","列1='" & e.DataRow("列1") & "'")
If (d - e.DataRow("列2')) / d > 0.1 then
e.datarow("列3') = "差值过大"
Else
e.DataRow("列3') = nothing
End If
End If
End If