主题：[求助]窗口表

此主题相关图片如下：sds1252.jpg

老师 您好！

我想当鼠标离开页签里的子表时，就马上锁定此表，请问要怎样弄。谢谢老师

 无法判断，鼠标位置，是否在表上方的。

 或者你说你为什么要做这个功能，变通处理下。

因为

能看到此窗口有很多人，有的人只能看，有的人只能编辑某列，又怕不小心把数据给改了。

这样保存和同步刷新 也搞不来？

既然，你说所有的修改，都是使用右键快捷菜单进行的，那么表格，从一开始，就可以锁定的啊。

输入内容总不能用右键菜单呀   右键只有增加行，删除行，解锁表，这些。

你不是可以编写代码限制那些人可以编辑，那些人不能么？

http://www.foxtable.com/webhelp/scr/2255.htm

再有就是，你鼠标离开表格锁定表，那单单是锁定你电脑的表，别人打开的程序，和你操作的又没有关系。

此主题相关图片如下：qq截图20170112173234.jpg

老师 如图所示 

 一样像1楼那样做，然后事件写代码

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    Dim tab As WinForm.TabControl = frm.Controls("tabcontrol1")
    If c.name = "aaa" Then
        tab.SelectedIndex = 0
    ElseIf c.name = "bbb" Then
        tab.SelectedIndex = 1
    End If
End If

老师 您的意思  还是用回页签控件吗？ 刚才的代码我放在表Click事件里面，出现了以下错误，还有代码请您帮我注释一下。有一些看不懂  谢谢您

代码写到AfterSelChanged事件。

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    Dim tab As WinForm.TabControl = frm.Controls("tabcontrol1")
    If c.name = "aaa" Then
        tab.SelectedIndex = 0
    ElseIf c.name = "bbb" Then
        tab.SelectedIndex = 1
    End If
End If