or
<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False" CellSpacing="0" GridLines="None" AllowPaging="True" OnNeedDataSource="RadGrid1_NeedDataSource" Skin="WebBlue" OnDeleteCommand="RadGrid1_DeleteCommand" OnInsertCommand="RadGrid1_InsertCommand" OnUpdateCommand="RadGrid1_UpdateCommand" ShowFooter="True" OnItemDataBound="RadGrid1_ItemDataBound" Culture="es-MX" OnItemCommand="RadGrid1_ItemCommand"> <MasterTableView CommandItemSettings-AddNewRecordText="Agregar registro" CommandItemDisplay="None" Caption="Cierre de Nóminas" DataKeyNames="fiEjercicio,fiQnaPago" AllowMultiColumnSorting="False" NoMasterRecordsText="No hay registros para mostrar"> <CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings> <RowIndicatorColumn FilterControlAltText="Filter RowIndicator column"> <HeaderStyle Width="20px"></HeaderStyle> </RowIndicatorColumn> <ExpandCollapseColumn FilterControlAltText="Filter ExpandColumn column"> <HeaderStyle Width="20px"></HeaderStyle> </ExpandCollapseColumn> <Columns> <telerik:GridNumericColumn DataField="fiEjercicio" DecimalDigits="2" FilterControlAltText="Filter fiEjercicio column" HeaderText="Ejercicio" UniqueName="fiEjercicio"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="fiQnaPago" DecimalDigits="2" FilterControlAltText="Filter fiQuincena column" HeaderText="Quincena" UniqueName="fiQnaPago"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="nom_edo" DecimalDigits="2" FilterControlAltText="Filter nom_edo column" HeaderText="Estado" UniqueName="nom_edo"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="nom_cd" DecimalDigits="2" FilterControlAltText="Filter nom_cd column" HeaderText="Ciudad" UniqueName="nom_cd"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="expedientes" DecimalDigits="2" FilterControlAltText="Filter expedientes column" HeaderText="# de Servidores Públicos" UniqueName="expedientes"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="percecpciones" DecimalDigits="2" FilterControlAltText="Filter percecpciones column" HeaderText="Total Percepciones" UniqueName="percecpciones"> </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="deducciones" DecimalDigits="2" FilterControlAltText="Filter deducciones column" HeaderText="Total Deducciones" UniqueName="deducciones" > </telerik:GridNumericColumn> <telerik:GridNumericColumn DataField="liquido" DecimalDigits="2" FilterControlAltText="Filter liquido column" HeaderText="Total Liquido" UniqueName="liquido"> </telerik:GridNumericColumn> <telerik:GridBoundColumn FilterControlAltText="Filter column column" UniqueName="estatus" HeaderText="Estatus" DataField="fcDescEdo"> </telerik:GridBoundColumn> <telerik:GridBoundColumn FilterControlAltText="Filter column column" UniqueName="estatusCalc" HeaderText="EstatusCalc" Visible="False" DataField="fcDescEdoCalc"> </telerik:GridBoundColumn> <telerik:GridButtonColumn ButtonType="ImageButton" FilterControlAltText="Filter detalle column" HeaderText="Ver Detalle" UniqueName="detalle" CommandName="detalle" ImageUrl="~/_images/iconos/detalle.png"> </telerik:GridButtonColumn> <telerik:GridButtonColumn ButtonType="ImageButton" FilterControlAltText="Filter cierre column" HeaderText="Cierre" UniqueName="cierre" CommandName="cierre" ImageUrl="~/_images/iconos/lock.png"> </telerik:GridButtonColumn> <telerik:GridButtonColumn ButtonType="ImageButton" FilterControlAltText="Filter cierre column" HeaderText="Generar Acumulados" UniqueName="acumulados" CommandName="acumulados" ImageUrl="~/_images/iconos/acumulados.png"> <HeaderStyle HorizontalAlign="Center" VerticalAlign="Middle" /> <ItemStyle HorizontalAlign="Center" VerticalAlign="Middle" /> </telerik:GridButtonColumn> </Columns> <EditFormSettings UserControlName="ucEditaCalendario.ascx" EditFormType="WebUserControl"> <EditColumn UniqueName="EditCommandColumn1"> </EditColumn> </EditFormSettings> </MasterTableView> <StatusBarSettings LoadingText="Cargando..." /> <FilterMenu EnableImageSprites="False"> </FilterMenu> <HeaderContextMenu CssClass="GridContextMenu GridContextMenu_Default"> </HeaderContextMenu> </telerik:RadGrid>
Protected Sub rgStoresMissingFiles_ItemDataBound(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles rgStoresMissingFiles.ItemDataBound If e.Item.ItemType = Telerik.Web.UI.GridItemType.Item Or e.Item.ItemType = Telerik.Web.UI.GridItemType.AlternatingItem Then Dim lblConnectionStatus As Label = e.Item.FindControl("lblConnectionStatus") Dim lblNextPollTime As Label = e.Item.FindControl("lblNextPollTime") Dim lblLastConnectTime As Label = e.Item.FindControl("lblLastConnectTime") Dim warningcolor As Drawing.Color = Drawing.Color.FromArgb(244, 244, 185) Dim errorcolor As Drawing.Color = Drawing.Color.FromArgb(253, 125, 249) With e.Item.DataItem Dim strLastConnectTime As String = CType(e.Item.DataItem("last_connect_time"), DateTime).ToString("hh:mm tt") Dim strNextConnectTime As String = CType(e.Item.DataItem("poll_now_time"), DateTime).ToString("hh:mm tt") If e.Item.DataItem("currently_polling") Then lblConnectionStatus.Text = "Currently polling" ElseIf e.Item.DataItem("last_connect_time") > Now().ToShortDateString Then lblLastConnectTime.Text = strLastConnectTime Select Case e.Item.DataItem("last_connect_status_id") Case 3 ' NoConnect lblConnectionStatus.Text = "Unable to connect to store" lblNextPollTime.Text = "Queued" e.Item.BackColor = errorcolor Case 2 ' ConnectNoData lblConnectionStatus.Text = "Potential line problem" lblNextPollTime.Text = strNextConnectTime e.Item.BackColor = errorcolor Case 1 ' ConnectWithData If e.Item.DataItem("count_staged_archives") > 0 Then lblConnectionStatus.Text = "Data polled" lblNextPollTime.Text = "Data staged" ElseIf e.Item.DataItem("count_staged_archives") = 0 And e.Item.DataItem("count_loaded_archives") > 0 Then lblConnectionStatus.Text = "Connected, missing data" lblNextPollTime.Text = strNextConnectTime e.Item.BackColor = warningcolor End If End Select ElseIf e.Item.DataItem("poll_now") Then lblConnectionStatus.Text = "Staged for first poll" lblNextPollTime.Text = strNextConnectTime lblLastConnectTime.Text = "N/A" Else lblConnectionStatus.Text = "Staged for first poll" lblNextPollTime.Text = "Queued" lblLastConnectTime.Text = "N/A" End If End With End IfEnd Sub