以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于在表中只几列获取焦点的问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40623)
--  作者：苍风霁月
--  发布时间：2013/9/25 8:32:00
--  关于在表中只几列获取焦点的问题！

我想在表A中几列获取焦点，其它列不能改，也不能获取焦点。请看看下表事件beforeselchange语句思路正确么？现一点击表任意位置，狐表就退出了！

 

If Tables("表A").Current Is Nothing Then
    Return
End If
Select Case Tables("表A").Cols(e.OldRange.ColSel).name
    Case "产品"
        Tables("表A").Select(Tables("表A").Current.Index,Tables("表A").Cols("系数").Index)
    Case "系数"
        If Tables("表A").Current("系数")>0 Then
            Tables("表A").Select(Tables("表A").Current.Index+1,Tables("表A").Cols("产品").Index)
        Else
            e.Cancel=True
        End If
    Case Else
        e.Cancel=True
End Select

[此贴子已经被作者于2013-9-25 8:32:40编辑过]
--  作者：Bin
--  发布时间：2013/9/25 8:40:00
--  
你这样做就死循环了,禁止修改应该在 PrepareEdit 事件上做.
--  作者：苍风霁月
--  发布时间：2013/9/25 17:45:00
--  
哦，大体意思懂了，先操作看看，不行再问问！