or
<
telerik:RadPanelBar
ID
=
"RadPanelBar1"
runat
=
"server"
Width
=
"1500px"
BackColor
=
"#E6E6E6"
ExpandMode
=
"MultipleExpandedItems"
>
<
Items
>
<
telerik:RadPanelItem
runat
=
"server"
Text
=
"ID Picker"
Expanded
=
"true"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
""
Expanded
=
"true"
>
<
ItemTemplate
>
<
telerik:RadAjaxPanel
runat
=
"server"
ID
=
"RadAjaxPanel_Header"
LoadingPanelID
=
"RadAjaxLoadingPanel1"
>
<
table
> <
tr
>
<
td
>
<
div
class
=
"cis_edit_label_tiny"
>
keyword:</
div
>
<
telerik:RadTextBox
ID
=
"radTBX_SearchBox"
runat
=
"server"
>
</
telerik:RadTextBox
><
telerik:RadButton
ID
=
"radBtn_Search"
runat
=
"server"
Text
=
"Search"
OnClick
=
"radBtn_Search_Click"
>
</
telerik:RadButton
>
<
telerik:RadButton
ID
=
"radBtn_CurentlySelected"
runat
=
"server"
Text
=
"Show parents "
OnClick
=
"radBtn_CurentlySelected_Click"
Visible
=
"false"
/>
</
td
>
<
td
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
telerik:RadGrid
ID
=
"RadGrid_IDPicker"
AllowSorting
=
"True"
PageSize
=
"100"
AllowPaging
=
"True"
runat
=
"server"
GridLines
=
"None"
OnPageIndexChanged
=
"RadGrid_IDPicker_PageIndexChanged"
OnPageSizeChanged
=
"RadGrid_IDPicker_PageSizeChanged"
Width
=
"1500px"
Visible
=
"false"
OnItemDataBound
=
"RadGrid_IDPicker_DataBound"
>
<
MasterTableView
RetrieveAllDataFields
=
"true"
AutoGenerateColumns
=
"false"
DataKeyNames
=
"ID"
>
<
Columns
>
<
telerik:GridTemplateColumn
UniqueName
=
"TemplateLinkColumn"
AllowFiltering
=
"false"
HeaderText
=
"ID"
>
<
ItemTemplate
>
<
asp:LinkButton
ID
=
"ID_Link"
runat
=
"server"
OnClick
=
"ID_Link_Click"
Text='<%#Bind("ID") %>'
CommandName="Bold"></
asp:LinkButton
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
HeaderText
=
"TAG"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lbltag"
runat
=
"server"
Text='<%#Bind("TAG") %>'></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
HeaderText
=
"TAG"
Visible
=
"false"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblRootLevel"
runat
=
"server"
Text='<%#Bind("root_level") %>'></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridBoundColumn
DataField
=
"Nom"
HeaderText
=
"Nom"
>
</
telerik:GridBoundColumn
>
</
Columns
>
</
MasterTableView
>
<
PagerStyle
Mode
=
"NextPrevAndNumeric"
/>
</
telerik:RadGrid
>
</
td
>
</
tr
>
</
table
>
</
telerik:RadAjaxPanel
>
</
ItemTemplate
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelBar
>
<
telerik:RadScriptManager
ID
=
"RadScriptManager1"
runat
=
"server"
>
</
telerik:RadScriptManager
>
<
telerik:RadComboBox
ID
=
"ddlbInstituut"
runat
=
"server"
AutoPostBack
=
"true"
/>
<
telerik:RadComboBox
ID
=
"ddlbAfdeling"
runat
=
"server"
CheckBoxes
=
"true"
Width
=
"300px"
/>
<
asp:Button
ID
=
"Button1"
runat
=
"server"
Text
=
"Button"
/>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack = False Then
vulInstituutDropdown()
End If
End Sub
Sub vulInstituutDropdown()
Dim dsInstituten As DataSet
dsInstituten = SqlHelper.ExecuteDataset(Conn, "SP_GetInstituut")
With ddlbInstituut
.DataSource = dsInstituten
.AutoPostBack = True
.ID = "ddlbInstituut"
.DataTextField = "inst_omschrijving"
.DataValueField = "inst_id"
.DataBind()
End With
vulAfdelingDropdown()
End Sub
Private Sub vulAfdelingDropdown()
Dim dsAfdelingen As DataSet
dsAfdelingen = SqlHelper.ExecuteDataset(Conn, "SP_GetAfdelingen", ddlbInstituut.SelectedValue)
With ddlbAfdeling
.Controls.Clear()
.ID = "ddlbAfdeling"
.DataSource = dsAfdelingen
.DataTextField = "afde_omschrijving"
.DataValueField = "afde_id"
.DataBind()
End With
End Sub
Protected Sub ddlbInstituut_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlbInstituut.SelectedIndexChanged
vulAfdelingDropdown()
End Sub