以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问有5个数字，其中一个数字固定等于100，其它4个相加必须等于他  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122312)
--  作者：q1156741089
--  发布时间：2018/7/23 9:27:00
--  请问有5个数字，其中一个数字固定等于100，其它4个相加必须等于他
请问有5个数字，其中一个数字固定等于100，其它4个相加必须等于它，用户在输入第一个固定数字后才能继续输入其它4个，在输入其它4个数字时要判断是否大于固定数字，相加是否等于固定数值，每输入一个要判断，其它几个是否已输入，如果输入值在进行计算
--  作者：有点甜
--  发布时间：2018/7/23 9:36:00
--  

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

 

 
--  作者：q1156741089
--  发布时间：2018/7/23 9:52:00
--  
startEdit事件 绑定控件输入就没用了。只有在表上直接输入才有
--  作者：有点甜
--  发布时间：2018/7/23 10:10:00
--  

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

 
--  作者：q1156741089
--  发布时间：2018/7/23 10:18:00
--  
好的谢谢