以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]老师锁定定列后同时不可选中列,是哪个代码呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160628)

--  作者:和谐
--  发布时间:2021/2/8 22:43:00
--  [求助]老师锁定定列后同时不可选中列,是哪个代码呢

--  作者:有点蓝
--  发布时间:2021/2/8 23:31:00
--  
不能选中这个列?

BeforeSelChange事件
If e.Table.Cols(e.NewRange.ColSel).Name = "第一列"
    e.Cancel = True
End If

--  作者:和谐
--  发布时间:2021/2/9 11:58:00
--  
老师这样操作时不能选中了,但是自动增加行后不会自动跳到第二列快速填写了?在最后一列回车后新增了一行但是光标一直是在最后列,对填写造成不便了
--  作者:有点蓝
--  发布时间:2021/2/9 12:04:00
--  
没看懂,截图并举例说明一下,具体写了什么代码控制?
--  作者:和谐
--  发布时间:2021/2/9 12:22:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:填写问题1.png
图片点击可在新窗口打开查看
自动增加行后光标跳转到了新增行的最后一列这样每次从第二列填写都要用鼠标点过来

--  作者:有点蓝
--  发布时间:2021/2/9 13:41:00
--  
默认就是这样的,自己到表格keydown事件处理一下,回车后选中新行的第二列
--  作者:和谐
--  发布时间:2021/2/9 13:52:00
--  
就是选中指定行,指定列,指定位置,的代码用那句代码,才可以让选择框移动到指定位置
--  作者:有点蓝
--  发布时间:2021/2/9 14:01:00
--  
表格keydown事件

If e.Table.Rowsel = e.Table.Rows.count - 1
    e.cancel = True
    Dim r As Row = e.Table.addnew
    e.Table.Select(r.Index,1)
End If