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
Subscribe to:
Post Comments (Atom)
-
Introduction The SAP .Net Connector is a software component supplied by SAP that makes it possible to communicate between an SAP host and ...
-
SSRS will often timeout when starting under Windows Server: The error is: Windows could not start the SQL Server Reporting Services (MS...
-
Many times I found that the Reporting service is configured to access as "Anonymous Access", so any user having URL can access r...
No comments:
Post a Comment