or
<telerik:RadPivotGrid ID=
"pivControles"
runat=
"server"
Skin=
"Metro"
AllowSorting=
"true"
AllowPaging=
"false"
RowGroupsDefaultExpanded=
"false"
TotalsSettings-RowGrandTotalsPosition=
"Last"
TotalsSettings-RowsSubTotalsPosition=
"None"
TotalsSettings-ColumnsGrandTotalsPosition=
"Last"
TotalsSettings-ColumnsSubTotalsPosition=
"None"
TotalsSettings-GrandTotalsVisibility=
"RowsAndColumns"
OnNeedDataSource=
"PivControles_NeedDataSource"
OnItemCommand=
"PivControles_ItemCommand"
OnCellDataBound=
"pivControle_CellDataBound"
ShowFilterHeaderZone=
"false"
ShowColumnHeaderZone=
"false"
ShowRowHeaderZone=
"false"
ShowDataHeaderZone=
"false"
EnableToolTips=
"true"
ClientSettings-ClientEvents-OnToolTipShow=
"showToolTip"
ClientSettings-ClientEvents-OnCellMouseOut=
"CellMouseOut"
ClientSettings-ClientEvents-OnCellMouseOver=
"CellMouseOver"
ClientSettings-Scrolling-AllowVerticalScroll=
"true"
>
<Fields>
<telerik:PivotGridColumnField DataField=
"SpecialismeOmschrijving"
CellStyle-BackColor=
"#F0F0F0"
Caption=
"Specialisme"
UniqueName=
"Specialisme"
/>
<telerik:PivotGridRowField DataField=
"ClusterIdEnCode"
ShowGroupsWhenNoData=
"false"
CellStyle-Width=
"85px"
CellStyle-BackColor=
"#F0F0F0"
Caption=
"Cluster"
/>
<telerik:PivotGridRowField DataField=
"ControleCodeEnOmschrijving"
CellStyle-CssClass=
"controleomschrijvingcell"
Caption=
"Controle"
CellStyle-Width=
"300px"
CellStyle-BackColor=
"#F0F0F0"
/>
<telerik:PivotGridAggregateField DataField=
"AantalControleResultaten"
Caption=
"Aantal resultaten"
Aggregate=
"Sum"
CellStyle-CssClass=
"pivotcell"
>
<CellTemplate>
<asp:LinkButton ID=
"btnGoToWerklijst"
runat=
"server"
onmouseover=
"BtnMouseOver(this)"
onmouseout=
"BtnMouseOut(this)"
ForeColor=
"#153291"
Text=
"<%# Container.DataItem %>"
/>
</CellTemplate>
</telerik:PivotGridAggregateField>
</Fields>
</telerik:RadPivotGrid>
<
telerik:RadGrid
runat
=
"server"
ID
=
"RadGrid1"
ShowFooter
=
"True"
AllowFilteringByColumn
=
"false"
AllowSorting
=
"True"
ExportSettings-FileName
=
"Besuchspruefung"
OnNeedDataSource
=
"RadGrid1_NeedDataSource"
OnBatchEditCommand
=
"RadGrid1_BatchEditCommand"
OnItemCommand
=
"RadGrid1_ItemCommand"
OnItemDataBound
=
"RadGrid1_ItemDataBound"
>
<
MasterTableView
AutoGenerateColumns
=
"False"
CommandItemDisplay
=
"Top"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
DataKeyNames
=
"besuchID_Ist"
EditMode
=
"Batch"
>
<
BatchEditingSettings
OpenEditingEvent
=
"Click"
EditType
=
"row"
SaveAllHierarchyLevels
=
"false"
/>
01.
Protected
Sub
RadGrid1_ItemCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
02.
Dim
u
As
tmeotUser =
CType
(Membership.GetUser(), tmeotUser)
03.
Dim
con
As
New
ConnectionClass
04.
05.
If
(e.CommandName =
"Update"
)
Then
06.
07.
For
Each
editedItem
As
GridEditableItem
In
RadGrid1.EditItems
08.
Dim
newValues
As
Hashtable =
New
Hashtable
09.
10.
'The GridTableView will fill the values from all editable columns in the hash
11.
e.Item.OwnerTableView.ExtractValuesFromItem(newValues, editedItem)
12.
13.
'perform update
14.
15.
editedItem.Edit =
False
16.
Next
17.
End
If
18.
RadGrid1.Rebind()
19.
End
Sub