注意判断列名,试试这样。如果还不行,就上传例子,并说明意图。
If e.DataCol.Name = "第三列" Then '如果是已结帐列的内容变动
Dim dr As DataRow=e.DataRow
If dr("第三列")="a" Then
dr("第四列")=dr("第一列")+dr("第二列")
Else
dr("第四列")=Nothing
End If
Else
For Each x As DataRow In DataTables("表a").DataRows
If x.RowState=DataRowState.Modified
DataTables("表A").DataCols("第三列").RaiseDataColChanged()
End If
Next
End If