表格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