以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样限制列输入数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68183)
--  作者：wusim
--  发布时间：2015/5/12 7:25:00
--  [求助]怎样限制列输入数据
怎样限制列输入数据？有Ａ、Ｂ两列，当Ａ小于等于1时，Ｂ不能输入大于3，反之不能输入大于5。
--  作者：Bin
--  发布时间：2015/5/12 8:32:00
--  
datacolchanging

select case e.datacol.name
         case "B"
            if e.datarow("A") <1 then
                 if e.newValue > 3 then
                     e.cancel=true
                 end if
            else
                if e.newValue > 5 then
                     e.cancel=true
                 end if
            end if
end select
--  作者：wusim
--  发布时间：2015/5/12 21:05:00
--  
如果增加Ｃ列，当Ａ小于等于1时，Ｃ不能输入大于６，反之不能输入大于１０。怎样增加语句？
--  作者：大红袍
--  发布时间：2015/5/12 21:08:00
--  
Select Case e.DataCol.name
    Case "B"
        If e.DataRow("A") <1 Then
            If e.newValue > 3 Then
                e.cancel=True
            End If
        Else
            If e.newValue > 5 Then
                e.cancel=True
            End If
        End If
    Case "C"
        If e.DataRow("A") <= 1 Then
            If e.newValue > 6 Then
                e.cancel=True
            End If
        Else
            If e.newValue > 10 Then
                e.cancel=True
            End If
        End If
End Select