Foxtable(狐表)用户栏目专家坐堂 → 单元格双击操作


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

主题:单元格双击操作

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/23 8:41:00 [只看该作者]

试了一下,没有办法。不过不需要进入编辑状态就可以直接输入的

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


加好友 发短信
等级:幼狐 帖子:82 积分:1060 威望:0 精华:0 注册:2014/4/6 20:26:00
  发帖心情 Post By:2021/6/23 9:19:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0645.htm

AfterSelChange

选择不同的单元格后执行,也就是表的RowSelColSel属性发生变化后执行。

e参数属性: 

Table:   引发事件的Table
OldRange:CellRange类型,表示操作前选定的区域
NewRange: CellRange 类型,表示操作后选定的区域

示例一

如果希望选择某些列的时候,单元格能自动进入编辑状态,可以参考下面的代码:

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)

Select Case c.name

    Case "列名一","列名二","列名三","列名四"

        e.Table.StartEditing()

End Select

 

显然,如果希望选择任何列,单元格都能自动进入编辑状态,只需将代码设置为:

 

e.Table.StartEditing()
图片点击可在新窗口打开查看此主题相关图片如下:示例截图.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:五尾狐 帖子:1064 积分:7581 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/6/23 9:58:00 [只看该作者]

按照楼上老师的方法设置,现在总是提示我不存在名为"_identify"的列,我这个确实没有这个列,但是之前没有这个提示,哪个地方需要再设置一下?

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.5.29.1
错误所在事件:压舱水,AfterSelChange
详细错误信息:
未将对象引用设置到对象的实例。

[此贴子已经被作者于2021/6/23 9:59:07编辑过]

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/23 10:06:00 [只看该作者]

写了什么代码?

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


加好友 发短信
等级:幼狐 帖子:82 积分:1060 威望:0 精华:0 注册:2014/4/6 20:26:00
  发帖心情 Post By:2021/6/23 10:10:00 [只看该作者]

代码改为下面这个试试

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)

Select Case c.name
    Case "_identify"
        e.Cancel = True
    Case Else
        e.Table.StartEditing()
End Select

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


加好友 发短信
等级:五尾狐 帖子:1064 积分:7581 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/6/23 10:15:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.5.29.1
错误所在事件:压舱水,AfterSelChange
详细错误信息:
索引超出范围。必须为非负值并小于集合大小。
参数名: index

老师,又报错了。

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


加好友 发短信
等级:五尾狐 帖子:1064 积分:7581 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/6/23 10:17:00 [只看该作者]

e.Table.StartEditing()

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


加好友 发短信
等级:幼狐 帖子:82 积分:1060 威望:0 精华:0 注册:2014/4/6 20:26:00
  发帖心情 Post By:2021/6/23 10:21:00 [只看该作者]

其一:你自己新建一个项目进行测试是否能达到你的要求。

其二:你只给出报错,没有代码和表数据,无法进行继续解答,最好能上传出错实例或项目。

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


加好友 发短信
等级:五尾狐 帖子:1064 积分:7581 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/6/23 10:22:00 [只看该作者]

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "tankno","obvd","correct","tovcubmeter","density"
        e.Table.StartEditing()
End Select

我改成这种具体列的也是一样报错。

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


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/23 10:23:00 [只看该作者]

如果要点击某个单元格后加入编辑状态,放到click事件

 回到顶部
总数 41 上一页 1 2 3 4 5 下一页