Foxtable(狐表)用户栏目专家坐堂 → [求助记录窗口双击单元格事件


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

主题:[求助记录窗口双击单元格事件

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助记录窗口双击单元格事件  发帖心情 Post By:2015/9/28 16:17:00 [显示全部帖子]

动态绑定了记录窗口的双击事件

双击函数代码:

''双击单元格事件    gr,gc,全局变量,进行单元格时所在的行和列

Dim sender As object = args(0)
Dim rgd As WinForm.RecordGrid = Forms("表格样式设置").Controls(sender.name)  ''    问题1: 红色部分改为:sender.From,但报错!!

If gr <> -1 And gc = 1 Then  ''如果双击的是第一列
    Dim nm As String = sender(gr,0)   ''标题名称
    If nm.Contains("+") = True Or nm.Contains("-") = True Then  ''如果是父行
        Functions.Execute("ShowHideRow",sender)   ''显示或隐藏子行
    Else  ''如果双击的子行
        Dim str  = rgd.Columns.Split("|")(gr)
        If   rgd.Table.Cols(str).IsBoolean = True  Then  ''如果是逻辑列
            sender(gr,1) = Not sender(gr,1)            问题2:要实现,双击单元格,如果是逻辑型,真假值互转,但未实现该目的 
        End If
    End If
End If

 

[此贴子已经被作者于2015/9/28 16:19:59编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/9/28 16:27:00 [显示全部帖子]

问题1,Sender所双击的控件,按道理讲,由控件可返回所在的窗口呀

问题2,未弹出错误,用msgbox检查能通过,就是不能赋值。

[此贴子已经被作者于2015/9/28 16:27:01编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/9/28 16:44:00 [显示全部帖子]

2,双击无法切换值,我是想进一步实现,下拉列表值中有多个值,双击单元格可以依次切换值

 

双击单元格后,进入单元格编辑状态了

[此贴子已经被作者于2015/9/28 16:45:06编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/9/28 17:01:00 [显示全部帖子]

cancel掉后,下拉列表又无法打开!

 回到顶部