以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95189)

--  作者:yupeng
--  发布时间:2017/1/12 16:19:00
--  [求助]窗口表


图片点击可在新窗口打开查看此主题相关图片如下:sds1252.jpg
图片点击可在新窗口打开查看

 

老师 您好!

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


--  作者:有点色
--  发布时间:2017/1/12 16:22:00
--  

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

 

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


--  作者:yupeng
--  发布时间:2017/1/12 16:28:00
--  

因为

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

 

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

[此贴子已经被作者于2017/1/12 16:30:30编辑过]

--  作者:有点色
--  发布时间:2017/1/12 16:41:00
--  

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

 

 


--  作者:yupeng
--  发布时间:2017/1/12 16:52:00
--  

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


--  作者:有点色
--  发布时间:2017/1/12 16:55:00
--  
以下是引用yupeng在2017/1/12 16:52:00的发言:

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

 

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

 

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

 

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


--  作者:yupeng
--  发布时间:2017/1/12 17:34:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170112173234.jpg
图片点击可在新窗口打开查看

 

老师 如图所示 


--  作者:有点色
--  发布时间:2017/1/12 17:53:00
--  

 一样像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


--  作者:yupeng
--  发布时间:2017/1/12 18:47:00
--  

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


--  作者:有点色
--  发布时间:2017/1/12 19:38:00
--  

代码写到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