passing objects...

[gagz]

objParam = objCmd.Parameters.Add("@DataProjector", System.Data.SqlDbType.bit)
objParam.Direction = ParameterDirection.Input
objParam.Value = ""
If (chkAVList.items.FindByValue("Data Projector&quot.Selected = True) Then
objParam.Value = chkAVList.items.FindByValue("Data Projector&quot.Value
End If

 

[gagz]

crap, that was a mispost... here's what it should have said.

I have two checkboxlists on my form. they have the same options, but different names. Instead of duplicating the code to set up the parameters for my stored procedure, i'd like to pass the checkboxlist to a subroutine. can this be done?

so far i tried this and it hasn't worked.

sub page_load
insertSub(chkbox1)
insertSub(chkbox2)
end sub

sub insertSub(chkAVList as object)
'stuff
objParam = objCmd.Parameters.Add("@DataProjector", System.Data.SqlDbType.bit)
objParam.Direction = ParameterDirection.Input
objParam.Value = ""
If (chkAVList.items.FindByValue("Data Projector&quot.Selected = True) Then
objParam.Value = chkAVList.items.FindByValue("Data Projector&quot.Value
End If
'more stuff
end sub

any help would be great.

THANKS

 

[Zarcom]

I think it might if you pass the check box in byref rather than the default byval That'l do donkey, that'l do
Mark
If you are unsure of forum etiquette check here faq796-2540

 

[JohnYingling]

Sure, but use

sub insertSub(ByVal chkAVList as System.Web.Ui.WebControls.Checkbox)

ByVal works with objects. You only need ByRef if you need to pass back a different reference than the one you were passed.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[gagz]

i think its close... but i'm getting:
System.NullReferenceException: Object reference not set to an instance of an object.


the line it complains about is:
If (chkAVList.items.FindByValue("Slide Projector&quot.Selected = True) Then


(which is the first time i reference the object.)

 

[JohnYingling]

Which object is missing: the checkboxList object, or the object returned by Items("Slide Projector&quot?

The Docs say:
"Use the FindByValue method to search the collection for a ListItem with a Value property that contains value specified by the value parameter. If an item is not found in the collection using this criteria, a null reference (Nothing in Visual Basic) is returned."

It is possible that the Checkboxlist exists but that the ListItem to be found by Items("Slide Projector&quot does not.

Instead of
If (chkAVList.items.FindByValue("Slide Projector&quot.Selected = True) Then

Try.
Dim licW = ListItem
Dim blnSelected a boolean
licW = chkAVList.items("Slide Projector&quot ' Get ListItem or NOTHING
if licW is Nothing then
.....missing the Slide Projector
else
blnSelectecd = licW.Selected
End if
if blnSelected then
.... found
End If

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[gagz]

well, i think its passing the object that is the issues... because I know this should work:

If chkAVList.Items(0).Selected Then


and it doesn't... I was doing something overly complicated with the findbyvalue stuff, since its a static list and I know the correlation between index number and text value...

any other ideas?

 

[JohnYingling]

Passing objects is done all the time. It is simple.

First, what do you mean by "does not work"? Is Selected = false when you expect it to be true or is there an "object required" exception?

Use strong typing when you can do so, not As Object.
Are those checkboxes or CheckBoxLists???

Are you saying that
sub page_load
if chkbox.Items(0).selected = true ' THIS IS OK
end if
insertSub(chkbox1) '
insertSub(chkbox2)
end sub
sub insertSub(byVal chkAVList as checkBoxlist)
If chkAVList.Items(0).Selected = True ' BUT THIS IS NOT
End if
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript