Private Sub RadGrid1_ItemCommand(sender As Object, e As GridCommandEventArgs) Handles RadGrid1.ItemCommand
If TypeOf e.Item Is Telerik.Web.UI.GridGroupHeaderItem Then
Dim oGridGroupHeaderItem As GridGroupHeaderItem = CType(e.Item, GridGroupHeaderItem)
Dim oChildren As GridItem() = oGridGroupHeaderItem.GetChildItems
Dim strSopnumber As String = RadGrid1.MasterTableView.DataKeyValues(oChildren(0).ItemIndex)("sopnumbe")
Dim strType As String = RadGrid1.MasterTableView.DataKeyValues(oChildren(0).ItemIndex)("soptype")
End If
End Sub