动态绑定了记录窗口的双击事件
双击函数代码:
''双击单元格事件 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编辑过]