getting below error when i bound columns in the menuitems.

Question

0.00/5 (No votes)

See more:

Hi,

I am getting below error when i bound columns in the menuitems.

"Index must be within the bounds of the List.
Parameter name: index"

See my code

Dim mnuItems As New MenuItem()
       Conn.Open()
       StrQry = ""
       StrQry = " Select isnull(Adm,'') as Adm,isnull(Home,'') as Home,"
       StrQry &= " isnull(Note,'') as Notes from tab1"
       Cmd.Connection = Conn
       Cmd.CommandText = StrQry
       Rdr = Cmd.ExecuteReader
       If Rdr.HasRows Then
           While Rdr.Read
              If Rdr("Home") = "Y" Then
                   mnuItems.NavigateUrl = "~\Home.aspx"
                     mnuItems.Text = "Home"
                   NavigationMenu.Items.Add(mnuItems)
              End If
               If Rdr("Adm") = "Y" Then
                   mnuItems.NavigateUrl = "~\Adm.aspx"
                   mnuItems.Text = "Adm"
                    NavigationMenu.Items.Add(mnuItems)

               End If
           End While
       End If
       Rdr.Close()
       Conn.Close()
   End Sub

Error getting in the Second Rdr("Adm") --> NavigationMenu.Items.Add(mnuItems)

What is the problem in the second menu items when adding...?

Posted 1-Aug-11 23:22pm

gani7787

Updated 2-Aug-11 2:46am

Herman<T>.Instance

v4

Add a Solution

3 solutions

Solution 1

C#

While Rdr.Read
                        NavigationMenu.Items.Clear()

you always clear your menu!

and if your code

VB

If Rdr("Home") = "Y" Then
                             mnuItems.NavigateUrl = "~\Home.aspx"
                             mnuItems.Text = "Home"
                             NavigationMenu.Items.Add(mnuItems)
                       Else
                             NavigationMenu.Items.Remove(mnuItems)

is not Y then you wnat to delete a non existing menuitem.

Better do a debug and see in what line the error comes up.

Posted 1-Aug-11 23:34pm

Herman<T>.Instance

Updated 1-Aug-11 23:36pm

v2

Comments

gani7787 2-Aug-11 5:44am

If rdr("Home") = "Y" then
'''Adding the Menu
Else
'''I don't want to display the menu

Herman<T>.Instance 2-Aug-11 5:51am

you don't want to display the menu or the menuitem?

gani7787 2-Aug-11 6:06am

sorry..
I should't display the menuitem...

gani7787 2-Aug-11 7:18am

menuitem...

gani7787 2-Aug-11 7:39am

any help pls...

Herman<T>.Instance 2-Aug-11 7:53am

Dim mnuItems As New MenuItem()
Conn.Open()
StrQry = ""
StrQry = " Select isnull(Admin,'') as Admin,isnull(Home,'') as Home,"
StrQry &= " isnull(Note,'') as Notes from tab1"
Cmd.Connection = Conn
Cmd.CommandText = StrQry
Rdr = Cmd.ExecuteReader
If Rdr.HasRows Then
While Rdr.Read
NavigationMenu.Items.Clear()
If Rdr("Home") = "Y" Then
mnuItems.NavigateUrl = "~\Home.aspx"
mnuItems.Text = "Home"
NavigationMenu.Items.Add(mnuItems)
Else If Rdr("Admin") = "Y" Then
mnuItems.NavigateUrl = "~\Admin.aspx"
mnuItems.Text = "Admin"
NavigationMenu.Items.Add(mnuItems)
End If
End While
End If
Rdr.Close()
Conn.Close()
End Sub

Solution 2

You are removing mnuItems from NavigationMenu.Items if Home or Admin are not equal to Y but nothing has been added to the menu, so you are getting an index error - the Else blocks are redundant

Posted 1-Aug-11 23:35pm

Reiss

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Herman<T>.Instance · Accepted Answer · 2011-08-02T02:11:00

VB

NavigationMenu.Items.Clear()
Conn.Open()
StrQry = ""
StrQry = " Select isnull(Admin,'') as Admin,isnull(Home,'') as Home,"
StrQry &= " isnull(Note,'') as Notes from tab1"
Cmd.Connection = Conn
Cmd.CommandText = StrQry
Rdr = Cmd.ExecuteReader
If Rdr.HasRows Then
      While Rdr.Read
            If Rdr("Home") = "Y" Then
                  Dim mnuItems As New MenuItem()
                  mnuItems.NavigateUrl = "~\Home.aspx"
                  mnuItems.Text = "Home"
                  NavigationMenu.Items.Add(mnuItems)
            Else If Rdr("Admin") = "Y" Then
                  Dim mnuItems As New MenuItem()
                  mnuItems.NavigateUrl = "~\Admin.aspx"
                  mnuItems.Text = "Admin"
                  NavigationMenu.Items.Add(mnuItems)
            End If
      End While
End If
Rdr.Close()
Conn.Close()
End Sub