Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口表


  共有1805人关注过本帖树形打印复制链接

主题:[求助]窗口表

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 16:22:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 16:41:00 [显示全部帖子]

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 16:55:00 [显示全部帖子]

以下是引用yupeng在2017/1/12 16:52:00的发言:

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

 

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

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部