主题：请问有5个数字，其中一个数字固定等于100，其它4个相加必须等于他

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 If
End Select

datacolchanging事件

If e.Datarow("第一列") = Nothing Then

    select case e.Datacol.name

        case "第二列", "第三列", "第四列"

            e.cancel = true

    End Select

End If

或者enter事件

http://www.foxtable.com/webhelp/scr/2342.htm