以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】合并模式后选择行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178998)

--  作者:王小风
--  发布时间:2022/8/2 15:42:00
--  【求助】合并模式后选择行的问题
图片点击可在新窗口打开查看
各位大佬请教一下 我想选择合并单元格后自动选择合并单元格的所有行。找了好久没有找到这方面的资料!大佬们有好方法吗?

--  作者:有点蓝
--  发布时间:2022/8/2 16:07:00
--  
表格click事件

Dim t As Table = e.Table
If t.Grid.GetMergedRange(t.RowSel + 1, t.ColSel + 1).IsSingleCell = False Then
    Dim r1 As Integer = t.Grid.GetMergedRange(t.RowSel + 1, t.ColSel + 1).r1
    Dim r2 As Integer = t.Grid.GetMergedRange(t.RowSel + 1, t.ColSel + 1).r2
    t.Select(r1 - 1, 0, r2 - 1, t.Cols.Count - 1)
End If

--  作者:王小风
--  发布时间:2022/8/2 16:28:00
--  
谢谢谢谢,代码可用,我研究下什么原理!图片点击可在新窗口打开查看