19 Jul 2011

Devx AspxGridView Html Row Created Event

If e.RowType = DevExpress.Web.ASPxGridView.GridViewRowType.Group Then
            Dim myText As Label = gvMenu.FindGroupRowTemplateControl(e.VisibleIndex, "Label1")
            Dim myLB As HyperLink = gvMenu.FindGroupRowTemplateControl(e.VisibleIndex, "hlAdd")

            If gvMenu.GetRowLevel(e.VisibleIndex) = 0 Then

                myText.Text = gvMenu.GetRowValues(e.VisibleIndex, "HR_MenuDesc")

                Dim hlEdit As HyperLink = gvMenu.FindGroupRowTemplateControl(e.VisibleIndex, "hlEdit")
                hlEdit.NavigateUrl = "frmEdit_Menu.aspx?" & Encryption.Base64Encryption("MenuId$" & gvMenu.GetRowValues(e.VisibleIndex, "KeyValue").ToString.Split("|")(0))

                If gvMenu.GetRowValues(e.VisibleIndex, "HR_URL") <> "" Then
                    myLB.Visible = False
                    e.Row.Cells(0).Controls(0).Visible = False
                Else
                    myLB.NavigateUrl = "frmEdit_Menu.aspx?" & Encryption.Base64Encryption("MenuId$" & gvMenu.GetRowValues(e.VisibleIndex, "KeyValue").ToString.Split("|")(0))
                End If

            ElseIf gvMenu.GetRowLevel(e.VisibleIndex) = 1 Then

                myText.Text = gvMenu.GetRowValues(e.VisibleIndex, "SM_Desc")

                Dim hlEdit As HyperLink = gvMenu.FindGroupRowTemplateControl(e.VisibleIndex, "hlEdit")

                If myText.Text = "" Then
                    myLB.Visible = False
                    hlEdit.Visible = False
                    e.Row.Cells(0).Controls(0).Visible = False
                Else
                    hlEdit.NavigateUrl = "frmEdit_Menu.aspx?" & Encryption.Base64Encryption("SubMenuId$" & gvMenu.GetRowValues(e.VisibleIndex, "KeyValue").ToString.Split("|")(1))
                    If gvMenu.GetRowValues(e.VisibleIndex, "SM_URL") <> "" Then
                        myLB.Visible = False
                    Else
                        myLB.NavigateUrl = "frmEdit_Menu.aspx?" & Encryption.Base64Encryption("SubMenuId$" & gvMenu.GetRowValues(e.VisibleIndex, "KeyValue").ToString.Split("|")(1))
                    End If
                End If

            End If

        ElseIf e.RowType = DevExpress.Web.ASPxGridView.GridViewRowType.Data Then

            Dim hlEdit As HyperLink = gvMenu.FindRowCellTemplateControl(e.VisibleIndex, gvMenu.Columns(3), "hlEditSS")

            If gvMenu.GetRowValues(e.VisibleIndex, "SSM_Desc") = "" Then
                hlEdit.Visible = False
            Else
                hlEdit.NavigateUrl = "frmEdit_Menu.aspx?" & Encryption.Base64Encryption("SubSubMenuId$" & gvMenu.GetRowValues(e.VisibleIndex, "KeyValue").ToString.Split("|")(2))
            End If

        End If

No comments:

Post a Comment