or
<
asp:ObjectDataSource
ID
=
"ODSNotifications"
runat
=
"server"
TypeName
=
"NotificationsFacade"
SelectMethod
=
"Get"
OnSelecting
=
"ODSNotifications_Selecting"
EnablePaging
=
"true"
SelectCountMethod
=
"GetCount"
StartRowIndexParameterName
=
"StartIndex"
MaximumRowsParameterName
=
"ItemsCount"
>
<
SelectParameters
>
<
asp:Parameter
Name
=
"userId"
Type
=
"Int32"
/>
<
asp:Parameter
Name
=
"fromDate"
Type
=
"DateTime"
/>
</
SelectParameters
>
</
asp:ObjectDataSource
>
<
telerik:RadDropDownList
ID
=
"RDDLNotifications"
runat
=
"server"
DataSourceID
=
"ODSNotifications"
CssClass
=
"RDDLNotifications"
DataValueField
=
"Title"
DataTextField
=
"Id"
OnItemDataBound
=
"RDDLNotifications_ItemDataBound"
DropDownWidth
=
"200px"
DropDownHeight
=
"100px"
EnableVirtualScrolling
=
"true"
>
<
ItemTemplate
>
<
asp:Panel
ID
=
"PNotification"
runat
=
"server"
CssClass
=
"w_n_outer"
onclick
=
"StopPropagation(event);"
>
<
div
class
=
"w_n_inner"
>
<
asp:Label
ID
=
"LType"
runat
=
"server"
Font-Size
=
"0.8em"
/>
<
br
/>
<
asp:Label
ID
=
"LTitle"
runat
=
"server"
Font-Bold
=
"true"
/>
<
br
/>
<
asp:Label
ID
=
"LBody"
runat
=
"server"
/>
</
div
>
</
asp:Panel
>
</
ItemTemplate
>
</
telerik:RadDropDownList
>
<
telerik:GridButtonColumn
FilterControlAltText
=
"Filter Files column"
CommandName
=
"ShowFiles"
UniqueName
=
"Files"
ButtonType
=
"PushButton"
HeaderText
=
"Files"
Exportable
=
"False"
Text
=
"Display"
>
</
telerik:GridButtonColumn
>
Protected
Sub
RadGrid1_ItemCommand(
ByVal
sender
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
RadGrid1.ItemCommand
Dim
value
As
String
If
e.CommandName =
"ShowFiles"
Then
Dim
dataItm
As
GridDataItem = TryCast(e.Item, GridDataItem)
value = dataItm(
"Location"
).Text &
"\03 Submitted\"
Process.Start(
"explorer.exe"
, value)
End
If
End
Sub
<
telerik:GridTemplateColumn
UniqueName
=
"LinkColumn"
>
<
ItemTemplate
>
<
asp:LinkButton
runat
=
"server"
ID
=
"LinkButton1"
CommandName
=
"ShowFiles"
></
asp:LinkButton
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
Private
Sub
RadGrid1_ItemDataBound(sender
As
Object
, e
As
GridItemEventArgs)
Handles
RadGrid1.ItemDataBound
If
TypeOf
e.Item
Is
GridDataItem
Then
Dim
item
As
GridDataItem = TryCast(e.Item, GridDataItem)
Dim
row
As
DataRow = TryCast(item.DataItem, DataRowView).Row
Dim
linkButton
As
LinkButton = TryCast(item(
"Location"
).FindControl(
"LinkButton1"
), LinkButton)
linkButton.Text =
"Location"
linkButton.PostBackUrl =
"#"
End
If
End
Sub
Protected
Sub
RadGrid1_ItemCommand(
ByVal
sender
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
RadGrid1.ItemCommand
Dim
value
As
String
If
e.CommandName =
"ShowFiles"
Then
Dim
linkButton
As
LinkButton = TryCast(e.CommandSource, LinkButton)
Dim
dataItm
As
GridDataItem = TryCast(e.Item, GridDataItem)
value = dataItm(
"Location"
).Text &
"\03 Submitted\"
Process.Start(
"explorer.exe"
, value)
End
If
End
Sub