programatically created checkboxes within panels again....

[Mike Fellows]

ok guys you have been a great help so far with this but im still struggling

I have some programatically created checkboxes within a panel

how can i set a checkbox to be actually checked (i.e. change its state)

currently im doing the following:
While count < DS4.Tables(0).R ows.Count
While count2 < Me.Panel2.Contr ols.Count
If DS4.Tables(0).R ows(count)(0) =
Me.Panel2.Contr ols.Item(count2 ).Text.ToString Then

'NEED SOME CODE TO SET THE CHECKBOX WITHIN THE PANEL TO CHECKED

End If
count2 = count2 + 1
End While
count2 = 0
count = count + 1
End While

Basically im looping through a dataset to see if the value in the dataset is
the same as the text on a checkbox, if it is i need to set the checkbox to
checked, but i have no idea how to do it

Thanks

Mike Fellows

[Mike Fellows]

I managed to do this, very simply in all honesty

by doing the following

Dim cbx As CheckBox
cbx = Me.Panel2.Contr ols.Item(count2 )
cbx.Checked = True
Me.Panel2.Contr ols.RemoveAt(co unt2)
Me.Panel2.Contr ols.Add(cbx)

Thanks though

"Mike Fellows" <mi************ *@equityhouse.N OSPAM.co.ukwrot e in message
news:yL******** *************** *******@giganew s.com...

ok guys you have been a great help so far with this but im still
struggling

I have some programatically created checkboxes within a panel

how can i set a checkbox to be actually checked (i.e. change its state)

currently im doing the following:
While count < DS4.Tables(0).R ows.Count
While count2 < Me.Panel2.Contr ols.Count
If DS4.Tables(0).R ows(count)(0) =
Me.Panel2.Contr ols.Item(count2 ).Text.ToString Then

'NEED SOME CODE TO SET THE CHECKBOX WITHIN THE PANEL TO CHECKED

End If
count2 = count2 + 1
End While
count2 = 0
count = count + 1
End While

Basically im looping through a dataset to see if the value in the dataset
is the same as the text on a checkbox, if it is i need to set the checkbox
to checked, but i have no idea how to do it

Thanks

Mike Fellows

[Terry]

Hi Mike,
In your code, cbx and Me.Panel2.Contr ols.Items(count 2) are references to
the same object - what is the point in removing and then adding the same
checkbox to the collection?
Why don't you just:
Ctype(Me.Panel2 .Controls.Items (count2), CheckBox).Check ed = True

--
Terry
"Mike Fellows" wrote:

I managed to do this, very simply in all honesty

by doing the following

Dim cbx As CheckBox
cbx = Me.Panel2.Contr ols.Item(count2 )
cbx.Checked = True
Me.Panel2.Contr ols.RemoveAt(co unt2)
Me.Panel2.Contr ols.Add(cbx)

Thanks though

"Mike Fellows" <mi************ *@equityhouse.N OSPAM.co.ukwrot e in message
news:yL******** *************** *******@giganew s.com...

ok guys you have been a great help so far with this but im still
struggling

I have some programatically created checkboxes within a panel

how can i set a checkbox to be actually checked (i.e. change its state)

currently im doing the following:
While count < DS4.Tables(0).R ows.Count
While count2 < Me.Panel2.Contr ols.Count
If DS4.Tables(0).R ows(count)(0) =
Me.Panel2.Contr ols.Item(count2 ).Text.ToString Then

'NEED SOME CODE TO SET THE CHECKBOX WITHIN THE PANEL TO CHECKED

End If
count2 = count2 + 1
End While
count2 = 0
count = count + 1
End While

Basically im looping through a dataset to see if the value in the dataset
is the same as the text on a checkbox, if it is i need to set the checkbox
to checked, but i have no idea how to do it

Thanks

Mike Fellows

[Mike Fellows]

Because I didnt know how to do that

but that is much better than my way

Thanks


"Terry" <Te***@nospam.n ospamwrote in message
news:58******** *************** ***********@mic rosoft.com...

Hi Mike,
In your code, cbx and Me.Panel2.Contr ols.Items(count 2) are references to
the same object - what is the point in removing and then adding the same
checkbox to the collection?
Why don't you just:
Ctype(Me.Panel2 .Controls.Items (count2), CheckBox).Check ed = True

--
Terry
"Mike Fellows" wrote:

>I managed to do this, very simply in all honesty

by doing the following

Dim cbx As CheckBox
cbx = Me.Panel2.Contr ols.Item(count2 )
cbx.Checked = True
Me.Panel2.Cont rols.RemoveAt(c ount2)
Me.Panel2.Cont rols.Add(cbx)

Thanks though

"Mike Fellows" <mi************ *@equityhouse.N OSPAM.co.ukwrot e in
message
news:yL******* *************** ********@gigane ws.com...

ok guys you have been a great help so far with this but im still
struggling

I have some programatically created checkboxes within a panel

how can i set a checkbox to be actually checked (i.e. change its state)

currently im doing the following:
While count < DS4.Tables(0).R ows.Count
While count2 < Me.Panel2.Contr ols.Count
If DS4.Tables(0).R ows(count)(0) =
Me.Panel2.Contr ols.Item(count2 ).Text.ToString Then

'NEED SOME CODE TO SET THE CHECKBOX WITHIN THE PANEL TO
CHECKED

End If
count2 = count2 + 1
End While
count2 = 0
count = count + 1
End While

Basically im looping through a dataset to see if the value in the
dataset
is the same as the text on a checkbox, if it is i need to set the
checkbox
to checked, but i have no idea how to do it

Thanks

Mike Fellows