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

请问有5个数字，其中一个数字固定等于100，其它4个相加必须等于它，用户在输入第一个固定数字后才能继续输入其它4个，在输入其它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

 

 

startEdit事件 绑定控件输入就没用了。只有在表上直接输入才有

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

 

好的谢谢