回复 4楼junlingzhu2002的帖子
Private Sub gcMultiRow1_CellClick(sender As Object, e As GrapeCity.Win.MultiRow.CellEventArgs) Handles GcMultiRow1.CellClick
Dim cell As Cell = Me.GcMultiRow1(e.RowIndex, e.CellIndex)
If TypeOf cell Is RowHeaderCell Then
'遍历所有Row
For i As Integer = 0 To Me.GcMultiRow1.RowCount - 1
'如果项目3的值跟点击的Row的项目3的值相等,就做选择。
If Object.Equals(Me.GcMultiRow1.GetValue(i, 3), Me.GcMultiRow1.GetValue(e.RowIndex, 3)) Then
Me.GcMultiRow1.AddSelection(i)
End If
Next
End If
End Sub |