http://www.foxtable.com/webhelp/scr/0625.htm
DataColChanged事件
Select Case e.DataCol.Name
Case "第一列","第二列","第三列"
If e.DataRow.IsNull("第一列") OrElse e.DataRow.IsNull("第二列") OrElse e.DataRow.IsNull("第三列") Then
e.DataRow("第四列") = Nothing
Else
If e.DataRow("第一列") = 2 And e.DataRow("第二列") = 1 And e.DataRow("第三列") = 2
e.DataRow("第四列") = 1
Else
e.DataRow("第四列") = 2
End If
End If
End Select