I need help - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

I need help

**I am trying to add a public class to add make AddMemberObject work
Please help!

My code:
*********

If statusCode = "A" Then
memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
lstMemberNames.Items.Clear()

For i = 0 To memberList.Count - 1
tempMemberAdd = memberList.GetByIndex(i)
lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
Next
statusCode = ""
End If
If statusCode = "AddCancel" Then
lstMemberNames.Items.Clear()

For i = 0 To memberList.Count - 1
tempMemberAdd = memberList.GetByIndex(i)
lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
Next
statusCode = ""
End If
If statusCode = "EditCancel" Then
memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
lstMemberNames.Items.Clear()

For i = 0 To memberList.Count - 1
tempMemberAdd = memberList.GetByIndex(i)
lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
Next
statusCode = ""
End If
If statusCode = "E" Then
memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
lstMemberNames.Items.Clear()
For i = 0 To memberList.Count - 1
tempMemberAdd = memberList.GetByIndex(i)
lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
Next
statusCode = ""
End If
If statusCode = "R" Then
lstMemberNames.Items.Clear()
For i = 0 To memberList.Count - 1
tempMemberAdd = memberList.GetByIndex(i)
lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
Next
statusCode = ""
End If
End If

lblMemberCount.Text = memberList.Count
End Sub

Public Class Member
***Code



Thank you,
Isabel

Comments

  • FlakesFlakes Posts: 642Member
    : **I am trying to add a public class to add make AddMemberObject work
    : Please help!
    :
    : My code:
    : *********
    :
    : If statusCode = "A" Then
    : memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
    : lstMemberNames.Items.Clear()
    :
    : For i = 0 To memberList.Count - 1
    : tempMemberAdd = memberList.GetByIndex(i)
    : lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
    : Next
    : statusCode = ""
    : End If
    : If statusCode = "AddCancel" Then
    : lstMemberNames.Items.Clear()
    :
    : For i = 0 To memberList.Count - 1
    : tempMemberAdd = memberList.GetByIndex(i)
    : lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
    : Next
    : statusCode = ""
    : End If
    : If statusCode = "EditCancel" Then
    : memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
    : lstMemberNames.Items.Clear()
    :
    : For i = 0 To memberList.Count - 1
    : tempMemberAdd = memberList.GetByIndex(i)
    : lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
    : Next
    : statusCode = ""
    : End If
    : If statusCode = "E" Then
    : memberList.Add(AddMemberObject.GetMemberName, AddMemberObject)
    : lstMemberNames.Items.Clear()
    : For i = 0 To memberList.Count - 1
    : tempMemberAdd = memberList.GetByIndex(i)
    : lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
    : Next
    : statusCode = ""
    : End If
    : If statusCode = "R" Then
    : lstMemberNames.Items.Clear()
    : For i = 0 To memberList.Count - 1
    : tempMemberAdd = memberList.GetByIndex(i)
    : lstMemberNames.Items.Add(tempMemberAdd.GetMemberName)
    : Next
    : statusCode = ""
    : End If
    : End If
    :
    : lblMemberCount.Text = memberList.Count
    : End Sub
    :
    : Public Class Member
    : ***Code
    :
    :
    :
    : Thank you,
    : Isabel
    :



    So what's happening now, are you getting any errors ?

    What's memberlist ? a class ?



Sign In or Register to comment.