G
Guest
Hi can someone please explain to me why I get the following error when I place the following code into a server control. It worked fine until I created the control???
Error: System.NullReferenceException: Object reference not set to an instance of an object.
Line 84: FirstParent = False
Line 85: Else
Line 86: Menu1.Items.Add(submenu1) ' Error
Line 87: submenu1 = New skmMenu.MenuItem(Mode)
Line 88: submenu1.CssClass = "highlighteditem"
Thanks!
...:: Code Behind ::..
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not IsPostBack Then
loadMenu()
Menu1.CssClass = "menuStyle"
Menu1.Opacity = 100
Menu1.zIndex = 100
Menu1.Cursor = skmMenu.MouseCursor.Pointer
End If
End Sub
Sub loadMenu()
'Load Menu Items from Database
Dim Constr As String = ConfigurationSettings.AppSettings("strConn")
Dim cmd As String = "Select * FROM tblMenu ORDER BY ParentID,ChildID,GrandChildID"
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd, Constr)
Dim dt As New DataTable
da.fill(dt)
Dim i As Integer = dt.Rows.Count
Dim aa As Integer
Dim FirstParent As Boolean = True
Dim ChildGroup As Boolean = False
Dim parentID, childID, grandchildID As Integer
Dim Mode, mnuURL As String
Dim submenu1 As New skmMenu.MenuItem
Dim ChildMenu1 As New skmMenu.MenuItem
Dim ISParent, ISChild, newGrandChildGroup As Boolean
For aa = 0 To i - 1
parentID = dt.Rows(aa).Item(0)
childID = dt.Rows(aa).Item(1)
grandchildID = dt.Rows(aa).Item(2)
Mode = dt.Rows(aa).Item(3)
If Not IsDBNull(dt.Rows(aa).Item(4)) Then
mnuURL = (dt.Rows(aa).Item(4))
Else
mnuURL = ""
End If
If Trim(dt.Rows(aa).Item(4)) <> "N" Then
ISParent = False
ISChild = False
newGrandChildGroup = False
If childID = 0 And grandchildID = 0 Then ISParent = True
If childID > 0 And grandchildID > 0 Then ISChild = True
If childID > 0 And grandchildID = 0 Then newGrandChildGroup = True
If ISParent Then
If ChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
ChildGroup = False
End If
If FirstParent Then
submenu1 = New skmMenu.MenuItem(Mode)
submenu1.CssClass = "highlighteditem"
FirstParent = False
Else
Menu1.Items.Add(submenu1)
submenu1 = New skmMenu.MenuItem(Mode)
submenu1.CssClass = "highlighteditem"
End If
End If
If ISChild Then
If ChildGroup And newGrandChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
ChildGroup = False
End If
If Not ChildGroup Then submenu1.SubItems.Add(New skmMenu.MenuItem(Mode, mnuURL))
End If
If newGrandChildGroup Then
ChildMenu1 = New skmMenu.MenuItem(Mode)
ChildGroup = True
End If
If ChildGroup And Not newGrandChildGroup Then
ChildMenu1.SubItems.Add(New skmMenu.MenuItem(Mode, mnuURL))
End If
End If
Next aa
If ChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
End If
Menu1.Items.Add(submenu1)
End Sub
Error: System.NullReferenceException: Object reference not set to an instance of an object.
Line 84: FirstParent = False
Line 85: Else
Line 86: Menu1.Items.Add(submenu1) ' Error
Line 87: submenu1 = New skmMenu.MenuItem(Mode)
Line 88: submenu1.CssClass = "highlighteditem"
Thanks!
...:: Code Behind ::..
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not IsPostBack Then
loadMenu()
Menu1.CssClass = "menuStyle"
Menu1.Opacity = 100
Menu1.zIndex = 100
Menu1.Cursor = skmMenu.MouseCursor.Pointer
End If
End Sub
Sub loadMenu()
'Load Menu Items from Database
Dim Constr As String = ConfigurationSettings.AppSettings("strConn")
Dim cmd As String = "Select * FROM tblMenu ORDER BY ParentID,ChildID,GrandChildID"
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd, Constr)
Dim dt As New DataTable
da.fill(dt)
Dim i As Integer = dt.Rows.Count
Dim aa As Integer
Dim FirstParent As Boolean = True
Dim ChildGroup As Boolean = False
Dim parentID, childID, grandchildID As Integer
Dim Mode, mnuURL As String
Dim submenu1 As New skmMenu.MenuItem
Dim ChildMenu1 As New skmMenu.MenuItem
Dim ISParent, ISChild, newGrandChildGroup As Boolean
For aa = 0 To i - 1
parentID = dt.Rows(aa).Item(0)
childID = dt.Rows(aa).Item(1)
grandchildID = dt.Rows(aa).Item(2)
Mode = dt.Rows(aa).Item(3)
If Not IsDBNull(dt.Rows(aa).Item(4)) Then
mnuURL = (dt.Rows(aa).Item(4))
Else
mnuURL = ""
End If
If Trim(dt.Rows(aa).Item(4)) <> "N" Then
ISParent = False
ISChild = False
newGrandChildGroup = False
If childID = 0 And grandchildID = 0 Then ISParent = True
If childID > 0 And grandchildID > 0 Then ISChild = True
If childID > 0 And grandchildID = 0 Then newGrandChildGroup = True
If ISParent Then
If ChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
ChildGroup = False
End If
If FirstParent Then
submenu1 = New skmMenu.MenuItem(Mode)
submenu1.CssClass = "highlighteditem"
FirstParent = False
Else
Menu1.Items.Add(submenu1)
submenu1 = New skmMenu.MenuItem(Mode)
submenu1.CssClass = "highlighteditem"
End If
End If
If ISChild Then
If ChildGroup And newGrandChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
ChildGroup = False
End If
If Not ChildGroup Then submenu1.SubItems.Add(New skmMenu.MenuItem(Mode, mnuURL))
End If
If newGrandChildGroup Then
ChildMenu1 = New skmMenu.MenuItem(Mode)
ChildGroup = True
End If
If ChildGroup And Not newGrandChildGroup Then
ChildMenu1.SubItems.Add(New skmMenu.MenuItem(Mode, mnuURL))
End If
End If
Next aa
If ChildGroup Then
submenu1.SubItems.Add(ChildMenu1)
End If
Menu1.Items.Add(submenu1)
End Sub