or
<telerik:RadDatePicker ID="TBox" runat="server" Width="120px" Culture="Dutch (Netherlands)" ShowPopupOnFocus="True" Skin="Outlook">
<Calendar ID="Calendar1" UseRowHeadersAsSelectors="False" runat="server" UseColumnHeadersAsSelectors="False" ViewSelectorText="x" Skin="Outlook">
</Calendar>
<DatePopupButton ImageUrl="" HoverImageUrl=""></DatePopupButton>
<DateInput ID="DateInput1" DisplayDateFormat="dd-MM-yyyy" runat="server"
DateFormat="dd-MM-yyyy" >
</DateInput>
</telerik:RadDatePicker>

| <telerik:RadGrid ID="RadGrid" runat="server" AutoGenerateColumns="False" |
| GridLines="None" AllowPaging="true" AllowCustomPaging="true" PageSize="100" AllowMultiRowSelection="true" |
| onitemcommand="RadGrid_ItemCommand" OnItemDataBound="RadGrid_ItemDataBound" |
| OnNeedDataSource="RadGrid_NeedDataSource" OnPreRender="RadGrid_PreRender" > |
| <ExportSettings> |
| <Pdf PageWidth="8.5in" PageHeight="11in" PageTopMargin="" PageBottomMargin="" PageLeftMargin="" PageRightMargin="" PageHeaderMargin="" PageFooterMargin=""></Pdf> |
| </ExportSettings> |
| <ClientSettings EnablePostBackOnRowClick="true" > |
| <Selecting AllowRowSelect="True" /> |
| <ClientEvents OnRowClick="RowClick" OnRowContextMenu="RowContextMenu" OnRowCreated="RowCreated" /> |
| </ClientSettings> <
MasterTableView Name="Customer" currentresetpageindexaction="SetPageIndexToFirst" DataKeyNames="CustomerNO" >
|
| <telerik:GridTableView runat="server" Name="Orders" AutoGenerateColumns="false" AllowSorting="false" |
| Width="100%" PageSize="20" AllowPaging="False" DataSourceID="UitvoeringenObjectDataSource" currentresetpageindexaction="SetPageIndexToFirst" |
| DataKeyNames="eKeyUITVRNG" > |
| <ParentTableRelation> |
| <telerik:GridRelationFields DetailKeyField="CustomerNO" MasterKeyField="CustomerNO" /> |
| </ParentTableRelation> |


| <Columns> |
| <telerik:GridHyperLinkColumn NavigateUrl="mywebpage.aspx" |
| ItemStyle-Width="20px" HeaderText="Button Column" UniqueName="HyperLinkColumnUniqueName" > |
| </telerik:GridHyperLinkColumn> |
| Protected Sub rGvTeachers_ItemDataBound(ByVal sender As Object, ByVal e As GridItemEventArgs) |
| If TypeOf e.Item Is GridDataItem Then |
| Dim item As GridDataItem = DirectCast(e.Item, GridDataItem) |
| Dim hyplnk As HyperLink = DirectCast(item("HyperLinkColumnUniqueName").Controls(0), HyperLink) |
| hyplnk.ImageUrl = "~/Email.gif" |
| End If |
| End Sub |