or
Private Function Get_CountGridCheckBox(ByVal SelGrid As RadGrid, ByVal ColName As String, ByVal ChkBoxVal As Boolean) As Integer Dim RtnVal As Integer Dim currentPageIndex As Integer = SelGrid.CurrentPageIndex 'Set initial value to zero RtnVal = 0 For i As Integer = 0 To SelGrid.PageCount - 1 ' Loop current page and count check box values For Each item As GridDataItem In SelGrid.Items Dim CheckBx As CheckBox = DirectCast(item(ColName).Controls(0), CheckBox) Dim CheckBxVal As Boolean = CheckBx.Checked If CheckBxVal = ChkBoxVal Then RtnVal += 1 End If Next ' Go to next Grid page currentPageIndex += 1 If currentPageIndex >= SelGrid.PageCount Then currentPageIndex = 0 End If SelGrid.CurrentPageIndex = currentPageIndex SelGrid.Rebind() Next 'Return Result Return RtnVal End Function| <telerik:RadGrid ID="RadGrid1" runat="server" AllowAutomaticDeletes="True" AllowAutomaticInserts="True" |
| AllowAutomaticUpdates="True" AllowFilteringByColumn="True" AllowPaging="True" |
| AllowSorting="True" DataSourceID="edsElegxosBrefos" GridLines="None" Skin="Office2007"> |
| <MasterTableView AutoGenerateColumns="False" DataKeyNames="Id" NoMasterRecordsText="Δεν υπάρχουν εξετάσεις..." |
| DataSourceID="edsElegxosBrefos" PagerStyle-FirstPageToolTip="Πρώτη Σελίδα" PagerStyle-LastPageToolTip="Τελευταία Σελίδα" |
| PagerStyle-NextPageToolTip="Επόμενη Σελίδα" PagerStyle-NextPagesToolTip="Επόμενες Σελίδες" |
| PagerStyle-PrevPagesToolTip="Προηγούμενες Σελίδες" PagerStyle-PrevPageToolTip="Προηγούμενη Σελίδα" |
| PagerStyle-PagerTextFormat="Αλλαγή Σελίδας: {4} Σελίδα <strong>{0}</strong> από <strong>{1}</strong>, Εγγραφές <strong>{2}</strong> εώς <strong>{3}</strong> από <strong>{5}</strong>." |
| CommandItemSettings-AddNewRecordText="Εισαγωγή Εξέτασης" CommandItemSettings-RefreshText="Ανανέωση" |
| EditFormSettings-EditFormType="Template" CommandItemDisplay="Bottom"> |
| <RowIndicatorColumn> |
| <HeaderStyle Width="20px" /> |
| </RowIndicatorColumn> |
| <ExpandCollapseColumn> |
| <HeaderStyle Width="20px" /> |
| </ExpandCollapseColumn> |
| <CommandItemSettings AddNewRecordText="Εισαγωγή Εξέτασης" RefreshText="Ανανέωση"> |
| </CommandItemSettings> |
| <Columns> |
| <telerik:GridButtonColumn ButtonType="ImageButton" CommandName="Edit" ImageUrl="~/Images/edit.png" |
| Text="Επεξεργασία" UniqueName="column"> |
| </telerik:GridButtonColumn> |
| <telerik:GridButtonColumn ButtonType="ImageButton" CommandName="Delete" ImageUrl="~/Images/delete.png" |
| Text="Διαγραφή εξέτασης" UniqueName="column1"> |
| </telerik:GridButtonColumn> |
| <telerik:GridBoundColumn DataField="Id" DataType="System.Int32" HeaderText="Id" ReadOnly="True" |
| SortExpression="Id" UniqueName="Id" Visible="False"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="CheckupDate" DataType="System.DateTime" HeaderText="Ημ. Εξέτασης" |
| SortExpression="CheckupDate" UniqueName="CheckupDate"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="Ilikia" DataType="System.Byte" HeaderText="Ηλικία" |
| SortExpression="Ilikia" UniqueName="Ilikia"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="Baros" DataType="System.Decimal" HeaderText="Βάρος" |
| SortExpression="Baros" UniqueName="Baros"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="Ypsos" DataType="System.Byte" HeaderText="Ύψος" |
| SortExpression="Ypsos" UniqueName="Ypsos"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="PerimetrosKefalis" DataType="System.Byte" HeaderText="Περίμετρος Κεφαλής" |
| SortExpression="PerimetrosKefalis" UniqueName="PerimetrosKefalis"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="StomatikiKoilotita" HeaderText="Στοματική Κοιλότητα" |
| SortExpression="StomatikiKoilotita" UniqueName="StomatikiKoilotita"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="Sxolia" HeaderText="Σχόλια" SortExpression="Sxolia" |
| UniqueName="Sxolia"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="Patient.Id" DataType="System.Int32" HeaderText="Patient.Id" |
| SortExpression="Patient.Id" UniqueName="Patient.Id" Visible="False"> |
| </telerik:GridBoundColumn> |
| </Columns> |
| <EditFormSettings EditFormType="Template"> |
| <FormTemplate> |
| <div align="left"> |
| <table style="width: 100%"> |
| <tr> |
| <td style="width: 109px"> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| </tr> |
| <tr> |
| <td align="justify" style="width: 109px"> |
| Ημ.Εξέτασης: |
| </td> |
| <td> |
| <telerik:RadDatePicker ID="RadDatePickerCheckupDate" runat="server" Culture="Greek (Greece)" |
| DbSelectedDate='<%# Bind("CheckupDate") %>' Skin="Office2007"> |
| <Calendar Skin="Office2007" UseColumnHeadersAsSelectors="False" UseRowHeadersAsSelectors="False" |
| ViewSelectorText="x"> |
| </Calendar> |
| <DatePopupButton HoverImageUrl="" ImageUrl="" /> |
| </telerik:RadDatePicker> |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| Ηλικία |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxIlikia" runat="server" Skin="Office2007" Text='<%# Bind("Ilikia") %>' |
| Width="125px"> |
| </telerik:RadTextBox> |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| Βάρος: |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxBaros" runat="server" Skin="Office2007" Text='<%# Bind("Baros") %>' |
| Width="125px"> |
| </telerik:RadTextBox> |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| Ύψος: |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxYpsos" runat="server" Skin="Office2007" Text='<%# Bind("Ypsos") %>' |
| Width="125px"> |
| </telerik:RadTextBox> |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| Περίμετρος Κεφαλής: |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxPerimetrosKefalis" runat="server" Skin="Office2007" |
| Text='<%# Bind("PerimetrosKefalis") %>' Width="125px"> |
| </telerik:RadTextBox> |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| Στοματική Κοιλότητα: |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxStomatikiKoilotita" runat="server" Skin="Office2007" |
| Text='<%# Bind("StomatikiKoilotita") %>' Width="125px"> |
| </telerik:RadTextBox> |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| Σχόλια: |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxSxolia" runat="server" Skin="Office2007" Text='<%# Bind("Sxolia") %>' |
| Width="250px" Height="150px" TextMode="MultiLine"> |
| </telerik:RadTextBox> |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| <telerik:RadTextBox ID="radTxtBoxPatientId" runat="server" Skin="Office2007" Text='<%# Bind("Patient.Id") %>' |
| Width="125px" Visible="false"> |
| </telerik:RadTextBox> |
| </td> |
| <td> |
| |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| </tr> |
| <tr> |
| <td style="width: 109px"> |
| <asp:Button ID="btnUpdate" runat="server" Text='<%# (Container as GridItem).OwnerTableView.IsItemInserted ? "Εισαγωγή" : "Αποθήκευση" %>' |
| CommandName='<%# (Container as GridItem).OwnerTableView.IsItemInserted ? "PerformInsert" : "Update" %>' /> |
| <asp:Button ID="btnCancel" runat="server" CausesValidation="false" Text="Ακύρωση" |
| CommandName="Cancel" /> |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| <td> |
| |
| </td> |
| </tr> |
| </table> |
| </div> |
| </FormTemplate> |
| </EditFormSettings> |
| <PagerStyle FirstPageToolTip="Πρώτη Σελίδα" LastPageToolTip="Τελευταία Σελίδα" NextPagesToolTip="Επόμενες Σελίδες" |
| NextPageToolTip="Επόμενη Σελίδα" PagerTextFormat="Αλλαγή Σελίδας: {4} Σελίδα <strong>{0}</strong> από <strong>{1}</strong>, Εγγραφές <strong>{2}</strong> εώς <strong>{3}</strong> από <strong>{5}</strong>." |
| PrevPagesToolTip="Προηγούμενες Σελίδες" PrevPageToolTip="Προηγούμενη Σελίδα" /> |
| </MasterTableView> |
| <ClientSettings> |
| <Scrolling AllowScroll="True" UseStaticHeaders="True" /> |
| </ClientSettings> |
| </telerik:RadGrid> |
| <asp:EntityDataSource ID="edsElegxosBrefos" runat="server" ConnectionString="name=ePediaDBEntities" |
| DefaultContainerName="ePediaDBEntities" EnableDelete="True" EnableInsert="True" |
| AutoGenerateWhereClause="true" Include="Patient" EnableUpdate="True" EntitySetName="CheckupBrefos"> |
| <WhereParameters> |
| <asp:SessionParameter Name="Patient.Id" SessionField="PatientId" Type="Int32" /> |
| </WhereParameters> |
| </asp:EntityDataSource> |
Dim item As GridDataItem = e.Item'apply tooltip on whole row For i As Integer = 0 To item.Cells.Count - 1 Dim onMouseOverStr As String = item.Cells(i).Attributes.Item("onmouseover") item.Cells(i).Attributes.Add("onmouseover", onMouseOverStr & "fixedtooltip('" & tooltipMessage & "', this, event, '350px');") Dim onMouseOutStr As String = item.Cells(i).Attributes.Item("onmouseout") item.Cells(i).Attributes.Add("onmouseout", onMouseOutStr & "delayhidetip();")Next'overwrite first column cell's tooltipitem("First").Attributes.Add("onmouseover", "fixedtooltip('" & global_portal.TooltipReplace(FirstTooltipMessage) & "', this, event, '260px');")item("First").Attributes.Add("onmouseout", "delayhidetip();")e.Item.Attributes.Add("onMouseOver", "this.style.cursor='pointer'")<telerik:RadGrid runat="server" ID="gvPatientSearch" DataSourceID="dsPatients" AllowAutomaticInserts="true"> <ClientSettings> <ClientEvents OnPopUpShowing="PopUpShowing" /> </ClientSettings> <MasterTableView DataKeyNames="patientID" CommandItemDisplay="Top" Width="100%" EditMode="PopUp"> <EditFormSettings UserControlName="~/App_Assets/Controls/patientControl.ascx" EditFormType="WebUserControl" CaptionDataField="lastName" CaptionFormatString="Edit Patient Record for {0}" InsertCaption="New Patient" FormStyle-Width="600px" > </EditFormSettings> <CommandItemSettings ShowAddNewRecordButton="true" AddNewRecordText="Add New Patient" /> <Columns> ... <telerik:GridEditCommandColumn /> </Columns> </MasterTableView> </telerik:RadGrid> <%@ Control Language="VB" AutoEventWireup="false" CodeFile="patientControl.ascx.vb" Inherits="App_Assets_Controls_patientControl" %> <div align="center"> <asp:FormView runat="server" ID="fvPatients" DataKeyNames="patientID" DataSourceID="dsPatients" DefaultMode="Insert"> <EditItemTemplate> <table class="searchTable" style="border: 1px solid #2a5690; background-color: #f7f5f0;" cellpadding="3" cellspacing="1" width="99%"> <tr> <td align="right">Last Name:</td> <td> <telerik:RadTextBox runat="server" ID="txtLastName" Text='<%# Bind("lastName") %>' MaxLength="50" /> <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtLastName" CssClass="errorMessage">«</asp:RequiredFieldValidator> </td> </tr> <tr> <td align="right">First Name:</td> <td> <telerik:RadTextBox runat="server" ID="txtFirstName" Text='<%# Bind("firstName") %>' MaxLength="50" /> <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="txtFirstName" CssClass="errorMessage">«</asp:RequiredFieldValidator> </td> </tr> <tr> <td align="right">Middle Name:</td> <td> <telerik:RadTextBox runat="server" ID="txtMiddleName" Text='<%# Bind("middleName") %>' MaxLength="50" /> </td> </tr> <tr> <td align="right" valign="top">Sex:</td> <td valign="top"> <asp:RadioButtonList runat="server" RepeatDirection="Horizontal" ID="cboSex" SelectedValue='<%# Bind("sex") %>'> <asp:ListItem Text="Male" Value="M" /> <asp:ListItem Text="Female" Value="F" /> </asp:RadioButtonList> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="cboSex" CssClass="errorMessage">please choose sex</asp:RequiredFieldValidator> </td> </tr> <tr> <td align="right">Date of Birth:</td> <td> <telerik:RadDateInput MinDate="01/01/1900" runat="server" ID="dteDateOfBirth" SelectedDate='<%# Bind("dateOfBirth") %>' /> <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="dteDateOfBirth" CssClass="errorMessage">«</asp:RequiredFieldValidator> </td> </tr> <tr> <td align="right">SSN:</td> <td> <telerik:RadMaskedTextBox ID="txtSSN" runat="server" Mask="###-##-####" TextWithLiterals="-" Width="75px" Text='<%# Bind("ssn") %>' /> <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtSSN" CssClass="errorMessage">«</asp:RequiredFieldValidator> </td> </tr> <tr> <td align="right">Phone Number:</td> <td> <telerik:RadMaskedTextBox runat="server" ID="txtPhoneNumber" Mask="###-###-####" TextWithLiterals="-" MaxLength="15" Text='<%# Bind("phoneNumber") %>' /> </td> </tr> <tr> <td align="right">Alternate (Cell) Phone Number:</td> <td><telerik:RadMaskedTextBox runat="server" ID="txtPhoneNumber2" Mask="###-###-####" TextWithLiterals="-" MaxLength="15" Text='<%# Bind("phoneNumber2") %>' /></td> </tr> <tr> <td align="right">Address Line 1:</td> <td><telerik:RadTextBox runat="server" ID="txtAddressLine1" MaxLength="150" Text='<%# Bind("addressLine1") %>' /></td> </tr> <tr> <td align="right">Address Line 2:</td> <td><telerik:RadTextBox runat="server" ID="txtAddressLine2" MaxLength="150" Text='<%# Bind("addressLine2") %>' /></td> </tr> <tr> <td align="right">City:</td> <td><telerik:RadTextBox runat="server" ID="txtCity" EmptyMessage="enter city" MaxLength="50" Text='<%# Bind("city") %>' /></td> </tr> <tr> <td align="right">State:</td> <td><telerik:RadTextBox runat="server" ID="txtState" EmptyMessage="enter state" MaxLength="2" Text='<%# Bind("state") %>' /></td> </tr> <tr> <td align="right">Zip Code:</td> <td><telerik:RadTextBox runat="server" ID="txtZipCode" EmptyMessage="enter zip code" MaxLength="10" Text='<%# Bind("zipCode") %>' /></td> </tr> <tr> <td align="right">Email Address:</td> <td><telerik:RadTextBox runat="server" ID="txtEmailAddress" Text='<%# Bind("emailAddress") %>' /></td> </tr> <tr> <td align="right">Hospital Patient ID:</td> <td><telerik:RadTextBox runat="server" ID="txtHospitalPatientID" Text='<%# Bind("hospitalPatientID") %>' /></td> </tr> <tr> <td></td> <td><telerik:RadButton CommandName="Insert" runat="server" ID="btnSave" Text="Add Patient" /></td> </tr> </table> </EditItemTemplate> </asp:FormView> </div> <asp:SqlDataSource runat="server" ID="dsPatients" SelectCommandType="StoredProcedure" SelectCommand="sp_Patients" InsertCommandType="StoredProcedure" InsertCommand="sp_Patients" UpdateCommandType="StoredProcedure" UpdateCommand="sp_Patients" > <SelectParameters> <asp:Parameter Name="Action" DefaultValue="SELECT" /> <asp:QueryStringParameter Name="patientID" QueryStringField="patientID" /> </SelectParameters> <InsertParameters> <asp:Parameter Name="Action" DefaultValue="INSERT" /> <asp:CookieParameter Name="lastUpdatedBy" CookieName="userName" /> </InsertParameters> <UpdateParameters> <asp:Parameter Name="Action" DefaultValue="UPDATE" /> <asp:CookieParameter Name="lastUpdatedBy" CookieName="userName" /> </UpdateParameters> </asp:SqlDataSource> protected void gridTxnEnquiry_ItemDataBound(object sender, Telerik.Web.UI.GridItemEventArgs e){ if (e.Item is GridDataItem) { GridDataItem dataItem = (GridDataItem)e.Item; DataRow dr = ((DataRowView)e.Item.DataItem).Row; // Set the Back Colour depending on the Record Type int rectype = int.Parse(dr["RecordType"].ToString()); switch (rectype) { case 0: dataItem.BackColor = Color.Blue break; case 1: dataItem.BackColor = Color.Red break; } }}