startEdit事件
If e.row("第一列") = Nothing Then
select case e.col.name
case "第二列", "第三列", "第四列"
e.cancel = true
End Select
End If
dataColChanged事件
Select Case e.DataCol.name Case "第一列", "第二列", "第三列", "第四列" Dim sum = val(e.DataRow("第二列")) + val(e.DataRow("第三列")) + val(e.DataRow("第四列")) If e.DataRow("第一列") < sum Then msgbox("大于") End IfEnd Select