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


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

主题:[求助]窗口表

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


加好友 发短信
等级:小狐 帖子:332 积分:2666 威望:0 精华:0 注册:2015/4/23 19:53:00
[求助]窗口表  发帖心情 Post By:2017/1/12 16:19:00 [只看该作者]


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

 

老师 您好!

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


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


加好友 发短信
等级:超级版主 帖子:12985 积分:65170 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 16:22:00 [只看该作者]

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

 

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


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


加好友 发短信
等级:小狐 帖子:332 积分:2666 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2017/1/12 16:28:00 [只看该作者]

因为

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

 

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

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

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


加好友 发短信
等级:超级版主 帖子:12985 积分:65170 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/12 16:41:00 [只看该作者]

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

 

 


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


加好友 发短信
等级:小狐 帖子:332 积分:2666 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2017/1/12 16:52:00 [只看该作者]

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


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


加好友 发短信
等级:超级版主 帖子:12985 积分:65170 威望: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

 

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


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


加好友 发短信
等级:小狐 帖子:332 积分:2666 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2017/1/12 17:34:00 [只看该作者]


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

 

老师 如图所示 


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


加好友 发短信
等级:超级版主 帖子:12985 积分:65170 威望: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


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


加好友 发短信
等级:小狐 帖子:332 积分:2666 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2017/1/12 18:47:00 [只看该作者]

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


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


加好友 发短信
等级:超级版主 帖子:12985 积分:65170 威望: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


 回到顶部