or
var
selected = {};
function
dgGrid_RowSelected(sender, args) {
var
cpayID = args.getDataKeyValue(
"ID"
);
if
(!selected[cpayID]) {
selected[cpayID] =
true
;
}
}
function
dgGrid_RowDeselected(sender, args) {
var
cpayID = args.getDataKeyValue(
"ID"
);
if
(selected[cpayID]) {
selected[cpayID] =
false
;
}
}
function
dgGrid_RowCreated(sender, args) {
var
cpayID = args.getDataKeyValue(
"ID"
);
if
(selected[cpayID]) {
args.get_gridDataItem().set_selected(
true
);
}
}
function
dgGrid_Created(sender, eventArgs) {
var
masterTable = sender.get_masterTableView(),
headerCheckBox = $telerik.$(masterTable.HeaderRow).find(
":checkbox"
)[0];
if
(headerCheckBox) {
headerCheckBox.checked = masterTable.get_selectedItems().length == masterTable.get_pageSize();
}
}
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
runat
=
"server"
>
<
title
></
title
>
</
head
>
<
body
>
<
form
id
=
"form1"
runat
=
"server"
>
<
div
>
<
telerik:RadScriptManager
ID
=
"RadScriptManager1"
runat
=
"server"
></
telerik:RadScriptManager
>
<
telerik:RadAjaxManager
ID
=
"RadAjaxManager1"
runat
=
"server"
>
<
AjaxSettings
>
<
telerik:AjaxSetting
AjaxControlID
=
"RadGrid1"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"RadGrid1"
></
telerik:AjaxUpdatedControl
>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
</
AjaxSettings
>
</
telerik:RadAjaxManager
>
<
telerik:RadGrid
ID
=
"RadGrid1"
Width
=
"300px"
AllowPaging
=
"True"
PageSize
=
"10"
runat
=
"server"
AllowSorting
=
"true"
GridLines
=
"None"
AutoGenerateColumns
=
"False"
AllowMultiRowSelection
=
"True"
>
<
ClientSettings
ColumnsReorderMethod
=
"Reorder"
EnablePostBackOnRowClick
=
"true"
>
<
Selecting
AllowRowSelect
=
"True"
/>
</
ClientSettings
>
<
MasterTableView
Width
=
"100%"
EditMode
=
"InPlace"
>
<
RowIndicatorColumn
Visible
=
"False"
> </
RowIndicatorColumn
>
<
ExpandCollapseColumn
Created
=
"True"
> </
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridCheckBoxColumn
HeaderText
=
"Select"
DataField
=
"IsSelected"
HeaderStyle-HorizontalAlign
=
"Center"
ItemStyle-HorizontalAlign
=
"Center"
></
telerik:GridCheckBoxColumn
>
<
telerik:GridBoundColumn
HeaderText
=
"Item name"
DataField
=
"ItemID"
></
telerik:GridBoundColumn
>
</
Columns
>
</
MasterTableView
>
<
PagerStyle
Mode
=
"NextPrevAndNumeric"
></
PagerStyle
>
</
telerik:RadGrid
>
</
div
>
</
form
>
</
body
>
</
html
>
Imports System.Data
Imports Telerik.Web.UI
Partial Class _Default
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
MakeDatasource()
End If
End Sub
Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
RadGrid1.DataSource = Session("ItemData")
End Sub
Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles RadGrid1.ItemDataBound
If TypeOf e.Item Is GridEditableItem Then
Dim item As GridEditableItem = DirectCast(e.Item, GridEditableItem)
Dim chk As CheckBox = DirectCast(item("IsSelected").Controls(0), CheckBox)
chk.Enabled = True
chk.AutoPostBack = True
AddHandler chk.CheckedChanged, AddressOf UpdateEditedItem
End If
End Sub
Protected Sub UpdateEditedItem(ByVal sender As Object, ByVal e As EventArgs)
Dim chk As CheckBox = DirectCast(sender, CheckBox)
Dim item As GridEditableItem = DirectCast(chk.NamingContainer, GridEditableItem)
Dim values As New Hashtable()
item.ExtractValues(values)
For Each rowView As DataRowView In mData
Dim row As DataRow = rowView.Row
If values("ItemID") = row("ItemID").ToString() Then
row("IsSelected") = Not row("IsSelected")
Exit For
End If
Next
Session("ItemData") = mData
RadGrid1.Rebind()
End Sub
Private Sub MakeDatasource()
Dim dt As New DataTable
dt.Columns.Add("IsSelected")
dt.Columns.Add("ItemID")
Dim dv As DataView = dt.DefaultView
For i = 0 To 19
Dim newRow As DataRowView = dv.AddNew()
newRow("IsSelected") = (i Mod 2 = 0) 'every other row is selected
newRow("ItemID") = "item " + i.ToString()
newRow.EndEdit()
Next
Session("ItemData") = dv
End Sub
End Class
<
telerik:RadGrid
ID
=
"gvEnCounterDetails"
runat
=
"server"
AutoGenerateColumns
=
"False"
CellSpacing
=
"0"
DataSourceID
=
"dsEncounterDetails"
GridLines
=
"None"
AllowAutomaticInserts
=
"True"
AllowAutomaticUpdates
=
"True"
AllowAutomaticDeletes
=
"True"
Width
=
"900px"
>
<
ExportSettings
>
<
Pdf
>
<
PageHeader
>
<
LeftCell
Text
=
""
></
LeftCell
>
<
MiddleCell
Text
=
""
></
MiddleCell
>
<
RightCell
Text
=
""
></
RightCell
>
</
PageHeader
>
<
PageFooter
>
<
LeftCell
Text
=
""
></
LeftCell
>
<
MiddleCell
Text
=
""
></
MiddleCell
>
<
RightCell
Text
=
""
></
RightCell
>
</
PageFooter
>
</
Pdf
>
</
ExportSettings
>
<
MasterTableView
DataKeyNames
=
"PatientID,EncounterID"
DataSourceID
=
"dsEncounterDetails"
CommandItemDisplay
=
"Top"
RetrieveNullAsDBNull
=
"True"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
AddNewRecordText
=
"Add Encounter"
ShowRefreshButton
=
"False"
></
CommandItemSettings
>
<
RowIndicatorColumn
Visible
=
"True"
FilterControlAltText
=
"Filter RowIndicator column"
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
Visible
=
"True"
FilterControlAltText
=
"Filter ExpandColumn column"
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridEditCommandColumn
ButtonType
=
"LinkButton"
UniqueName
=
"EditColumn"
HeaderStyle-Width
=
"30px"
>
<
ItemStyle
CssClass
=
"linkUnderline"
HorizontalAlign
=
"Center"
Wrap
=
"False"
></
ItemStyle
>
</
telerik:GridEditCommandColumn
>
<
telerik:GridDateTimeColumn
DataField
=
"sDOS"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter sDOS column"
HeaderText
=
"DOS"
SortExpression
=
"sDOS"
UniqueName
=
"sDOS"
DataFormatString
=
"{0:MM/dd/yyyy}"
Visible
=
"True"
HeaderStyle-Width
=
"75px"
>
<%--<
ColumnValidationSettings
EnableRequiredFieldValidation
=
"true"
>
<
RequiredFieldValidator
ForeColor
=
"Red"
ErrorMessage
=
"*Required"
></
RequiredFieldValidator
>
</
ColumnValidationSettings
>--%>
</
telerik:GridDateTimeColumn
>
<
telerik:GridBoundColumn
DataField
=
"sRoomNumber"
FilterControlAltText
=
"Filter sRoomNumber column"
HeaderText
=
"Room #"
SortExpression
=
"sRoomNumber"
UniqueName
=
"sRoomNumber"
HeaderStyle-Width
=
"75px"
>
</
telerik:GridBoundColumn
>
<
telerik:GridDropDownColumn
DataSourceID
=
"dsEncounterTypes"
ListTextField
=
"EncounterType"
ListValueField
=
"EncounterTypeID"
UniqueName
=
"iServiceTypeID"
SortExpression
=
"iServiceTypeID"
DataField
=
"iServiceTypeID"
AllowAutomaticLoadOnDemand
=
"true"
DropDownControlType
=
"DropDownList"
EditFormColumnIndex
=
"0"
FilterControlAltText
=
"Filter iServiceTypeID"
HeaderText
=
"Service Type"
HeaderStyle-Width
=
"100px"
ColumnEditorID
=
"ServiceTypeColumnEditor"
EmptyListItemText
=
""
EmptyListItemValue
=
""
EnableEmptyListItem
=
"True"
>
</
telerik:GridDropDownColumn
>
<
telerik:GridTemplateColumn
DataField
=
"sAttendingProviderNumber"
EditFormColumnIndex
=
"0"
FilterControlAltText
=
"Filter sAttendingProviderNumber column"
HeaderText
=
"Provider"
SortExpression
=
"sAttendingProviderNumber"
UniqueName
=
"sAttendingProviderNumber"
HeaderStyle-Width
=
"190px"
>
<
EditItemTemplate
>
<
telerik:RadDropDownList
ID
=
"sAttendingProviderNumberDDL"
runat
=
"server"
DataSourceID
=
"dsAttendingDocs"
DataTextField
=
"DOCNAME"
DataValueField
=
"DOCCODE"
SelectedValue='<%# Bind("sAttendingProviderNumber") %>'
AppendDataBoundItems="True" Width="185px">
<
Items
>
<
telerik:DropDownListItem
runat
=
"server"
Text
=
"Select an Attending Provider"
Value
=
""
/>
</
Items
>
</
telerik:RadDropDownList
>
</
EditItemTemplate
>
<
ItemTemplate
>
<
telerik:RadDropDownList
ID
=
"sAttendingProviderNumberDDL"
runat
=
"server"
DataSourceID
=
"dsAttendingDocs"
DataTextField
=
"DOCNAME"
DataValueField
=
"DOCCODE"
SelectedValue='<%# Bind("sAttendingProviderNumber") %>'
AppendDataBoundItems="True" Width="185px" OnSelectedIndexChanged="sAttendingProviderNumberDropDownList_SelectedIndexChanged"
Enabled='<%# CanBeEditedByUser() %>' AutoPostBack="True" CausesValidation="False">
<
Items
>
<
telerik:DropDownListItem
runat
=
"server"
Text
=
"Select Assigned Provider"
Value
=
""
/>
</
Items
>
</
telerik:RadDropDownList
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"sSecondaryProviderNumber"
EditFormColumnIndex
=
"0"
FilterControlAltText
=
"Filter sSecondaryProviderNumber column"
HeaderText
=
"Secondary Provider"
SortExpression
=
"sSecondaryProviderNumber"
UniqueName
=
"sSecondaryProviderNumber"
HeaderStyle-Width
=
"190px"
Visible
=
"False"
>
<
EditItemTemplate
>
<
telerik:RadDropDownList
ID
=
"sSecondaryProviderNumberDDL"
runat
=
"server"
DataSourceID
=
"dsAttendingDocs"
DataTextField
=
"DOCNAME"
DataValueField
=
"DOCCODE"
SelectedValue='<%# Bind("sSecondaryProviderNumber") %>'
AppendDataBoundItems="True" Width="185px">
<
Items
>
<
telerik:DropDownListItem
runat
=
"server"
Text
=
"Select Secondary Provider"
Value
=
""
/>
</
Items
>
</
telerik:RadDropDownList
>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"iLocationCodeID"
EditFormColumnIndex
=
"0"
FilterControlAltText
=
"Filter iLocationCodeID column"
HeaderText
=
"Location"
SortExpression
=
"iLocationCodeID"
UniqueName
=
"iLocationCodeID"
HeaderStyle-Width
=
"190px"
>
<
ItemTemplate
>
<
telerik:RadDropDownList
ID
=
"ddlLocationDDL"
runat
=
"server"
DataSourceID
=
"dsLocationCodes"
DataValueField
=
"LocationCodeID"
DataTextField
=
"LocationDesc"
Width
=
"300px"
SelectedValue='<%# Bind("iLocationCodeID") %>'
Enabled='<%# CanBeEditedByUser() %>' AutoPostBack="True" CausesValidation="False">
</
telerik:RadDropDownList
>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadDropDownList
ID
=
"ddlLocationDDL"
runat
=
"server"
DataSourceID
=
"dsLocationCodes"
DataValueField
=
"LocationCodeID"
DataTextField
=
"LocationDesc"
CausesValidation
=
"False"
Width
=
"300px"
SelectedValue='<%# Bind("iLocationCodeID") %>'>
</
telerik:RadDropDownList
>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"iSeenByProvider"
EditFormColumnIndex
=
"0"
DataType
=
"System.Boolean"
DefaultInsertValue
=
"False"
FilterControlAltText
=
"Filter Seen By Provider"
HeaderText
=
"Seen By Provider"
SortExpression
=
"iSeenByProvider"
UniqueName
=
"iSeenByProvider"
HeaderStyle-Width
=
"50px"
>
<
EditItemTemplate
>
<
asp:CheckBox
ID
=
"iSeenByProviderCheckBox"
runat
=
"server"
AutoPostBack
=
"false"
Checked='<%# Bind("iSeenByProvider") %>' />
</
EditItemTemplate
>
<
ItemTemplate
>
<
asp:CheckBox
ID
=
"iSeenByProviderCheckBox"
runat
=
"server"
AutoPostBack
=
"true"
Enabled='<%# CanBeEditedByUser() %>'
Checked='<%# Eval("iSeenByProvider") %>' OnCheckedChanged="ToggleSeenByProvider" />
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"iNotSeenByProvider"
EditFormColumnIndex
=
"0"
DataType
=
"System.Boolean"
DefaultInsertValue
=
"False"
FilterControlAltText
=
"Filter Not Seen By Provider"
HeaderText
=
"Not Seen By Provider"
SortExpression
=
"iNotSeenByProvider"
UniqueName
=
"iNotSeenByProvider"
HeaderStyle-Width
=
"50px"
>
<
EditItemTemplate
>
<
asp:CheckBox
ID
=
"iNotSeenByProviderCheckBox"
runat
=
"server"
AutoPostBack
=
"false"
Checked='<%# Bind("iNotSeenByProvider") %>' />
<
asp:HiddenField
ID
=
"hdnPatientID"
runat
=
"server"
Value='<%# Eval("PatientID") %>' />
<
asp:HiddenField
ID
=
"hdnEncounterID"
runat
=
"server"
Value='<%# Eval("EncounterID") %>' />
</
EditItemTemplate
>
<
ItemTemplate
>
<
asp:CheckBox
ID
=
"iNotSeenByProviderCheckBox"
runat
=
"server"
AutoPostBack
=
"true"
Enabled='<%# CanBeEditedByUser() %>' Checked='<%# Eval("iNotSeenByProvider") %>'
OnCheckedChanged="ToggleNotSeenByProvider" />
<
asp:HiddenField
ID
=
"hdnPatientID"
runat
=
"server"
Value='<%# Eval("PatientID") %>' />
<
asp:HiddenField
ID
=
"hdnEncounterID"
runat
=
"server"
Value='<%# Eval("EncounterID") %>' />
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridButtonColumn
ButtonType
=
"ImageButton"
Text
=
"Delete"
UniqueName
=
"DeleteColumn"
CommandName
=
"Delete"
ItemStyle-Width
=
"30px"
HeaderStyle-Width
=
"30px"
ConfirmText
=
"Delete this Encounter?"
ConfirmDialogType
=
"RadWindow"
ConfirmTitle
=
"Delete Encounter?"
>
<
ItemStyle
HorizontalAlign
=
"Center"
CssClass
=
"MyImageButton"
></
ItemStyle
>
</
telerik:GridButtonColumn
>
</
Columns
>
<
EditFormSettings
ColumnNumber
=
"1"
CaptionDataField
=
"sDOS"
CaptionFormatString
=
"Edit details"
InsertCaption
=
"New Encounter"
>
<
FormTableItemStyle
Wrap
=
"False"
></
FormTableItemStyle
>
<
FormCaptionStyle
CssClass
=
"EditFormHeader"
></
FormCaptionStyle
>
<%--<
FormMainTableStyle
GridLines
=
"None"
CellSpacing
=
"0"
CellPadding
=
"2"
Width
=
"100%"
></
FormMainTableStyle
>
<
FormTableStyle
CellSpacing
=
"0"
CellPadding
=
"2"
></
FormTableStyle
>--%>
<
FormTableAlternatingItemStyle
Wrap
=
"False"
></
FormTableAlternatingItemStyle
>
<
EditColumn
ButtonType
=
"ImageButton"
InsertText
=
"Add Encounter"
UpdateText
=
"Update Encounter"
UniqueName
=
"EditCommandColumn1"
CancelText
=
"Cancel"
>
</
EditColumn
>
<
FormTableButtonRowStyle
HorizontalAlign
=
"Left"
CssClass
=
"EditFormButtonRow"
></
FormTableButtonRowStyle
>
</
EditFormSettings
>
<
BatchEditingSettings
EditType
=
"Cell"
></
BatchEditingSettings
>
<
PagerStyle
PageSizeControlType
=
"RadComboBox"
></
PagerStyle
>
</
MasterTableView
>
<
PagerStyle
PageSizeControlType
=
"RadComboBox"
></
PagerStyle
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
</
telerik:RadGrid
>