Re: Strange problem: radiobutton checkchanged triggerd wen not wanted - Visual Basic Discussion Boards

I have a form where I load (dynamicly) a few radiobuttons lets say 10 groups of 3

everything works except for the first group

here's what happens and how I load them:

in a for lus I create, set the property's of the radiobuttons and put them on the form (each group of 3 in a groupbox)
in the first group the second radiobutton has to be true so I put hem on true (= parameter in db)
in the second group I do exactly the same

when I load the form the first radiobutton of the first group is put on true (witch is wrong) but in the second group the second radiobutton is put on true (as it should be)

when I debug I can see that for the first group the checkchanged event is triggerd (twice since 1 radiobutton is put on true and the other on false) but nowere in my code do I change the property once it is set. Also for the second (and folowing) group the event is not triggerd.

Any idee on why this happens

side note: this does not happen in c# (it's a converted prog)

any idee would we very appriciated

The code is obviously wrong somewhere. The radios don't get their values until runtime, so when your code starts up, the radio's get their initial values, which will fire the checkchanged events.

If the events are not firing for the other radios, it means they don't have their events wired up in your code. Perhaps you're missing some Handling clauses, or you haven't converted the C# event wiring code to VB.NET AddHandler's???

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

normally I would agree with you but the code is completly the same
how do I know this:
well beceause the radiobuttons are put on the form using a loop (because there are about 100 of them I didn't want to type in rbt = new radiobutton a 100times (I'm lazy that way Poke tongue | ;-P

))

and also at runtime everything works perfectly (when I change a radiobuttons state the checkchanged event is triggerd so that works)

it's just the first group of radiobuttons that creates a problem
apperently there (and only there) checkchanged event is triggerd when creating them

like I said a very strange problem Frown | :(

I dobn't have the the time right now, but I'll see if I can duplicate the problem. Post osome of the code that you're using to create the first few groups and I'll see what I find out.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

I'll post it as soon as I'm back at my work (its weekend now so...)
I can't access the code from here

thanks in advance

as promised here's the code that I use for creating the controls (the custum created datatable would normally be replaced with one filled from the db but for testing purposes its enough) and I only included one row here otherwise it would have been too long (it's long enough already)but you can get the idea from it:

<br />
' Add columns to Datatable<br />
        dt1.Columns.Add("FieldName", GetType(String))<br />
        ' Databasename of the field<br />
        dt1.Columns.Add("FieldType", GetType(String))<br />
        ' Datatype of this field in the database<br />
        dt1.Columns.Add("lblField", GetType(String))<br />
        ' Display label on the form<br />
        dt1.Columns.Add("rbNot", GetType(Boolean))<br />
        ' Radiobutton 'Not'    checked?<br />
        dt1.Columns.Add("rbIn", GetType(Boolean))<br />
        ' Radiobutton 'In'     checked?<br />
        dt1.Columns.Add("rbNotin", GetType(Boolean))<br />
        ' Radiobutton 'Not in' checked?<br />
        dt1.Columns.Add("SqlSelect", GetType(String))<br />
        ' Multiple selection - <br />
        dt1.Columns.Add("FlgSearchbtn", GetType(Boolean))<br />
        ' Multiple selection - Only one of these has to be true! - corresponding control has to become visible when checked<br />
        dt1.Columns.Add("FlgSelection", GetType(Boolean))<br />
        ' Single selection   - Only one of these has to be true! - corresponding control has to become visible when checked<br />
        dt1.Columns.Add("FlgFromTo", GetType(Boolean))<br />
        ' From/To selection  - Only one of these has to be true! - corresponding control has to become visible when checked<br />
        dt1.Columns.Add("txtSelection", GetType(String))<br />
        ' The data to be searched (multiple + single selection)<br />
        dt1.Columns.Add("txtFrom", GetType(String))<br />
        ' The 'From' data to be searched<br />
        dt1.Columns.Add("txtTo", GetType(String))<br />
        ' The 'To'   data to be searched<br />
        'dt1.Columns.Add("txtFrom", typeof(Int32));<br />
        'dt1.Columns.Add("txtTo", typeof(Int32));<br />
        ' Add rows to datatable<br />
        Dim dr As DataRow<br />
<br />
        dr = dt1.NewRow()<br />
        dr("FieldName") = "b_zoeknaam"<br />
        dr("FieldType") = "string"<br />
        dr("lblField") = "Zoeknaam:"<br />
        dr("rbNot") = False<br />
        dr("rbIn") = True<br />
        dr("rbNotin") = False<br />
        dr("FlgSearchbtn") = False<br />
        dr("FlgSelection") = True<br />
        dr("FlgFromTo") = False<br />
        dr("txtSelection") = ""<br />
        dr("txtFrom") = ""<br />
        dr("txtTo") = ""<br />
        dt1.Rows.Add(dr)<br />
<br />
<br />
For Each row As DataRow In dt1.Rows<br />
            y += 20<br />
<br />
            ' Create controls<br />
            lblField(i) = New Label()<br />
            rbNot(i) = New RadioButton()<br />
            rbIn(i) = New RadioButton()<br />
            rbNotin(i) = New RadioButton()<br />
            gb(i) = New GroupBox()<br />
            txtFrom(i) = New TextBox()<br />
            txtTo(i) = New TextBox()<br />
            btnSearch(i) = New Button()<br />
            txtValue(i) = New TextBox()<br />
            lblSearch(i) = New Label()<br />
<br />
            ' lblField<br />
            lblField(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte((0)))<br />
            lblField(i).ForeColor = System.Drawing.Color.FromArgb(CInt(CByte((0))), CInt(CByte((0))), CInt(CByte((0))))<br />
            lblField(i).Location = New System.Drawing.Point(x + 10, y + 30)<br />
            lblField(i).Name = row("FieldName").ToString()<br />
            lblField(i).Size = New System.Drawing.Size(250, 30)<br />
            lblField(i).TabIndex = 0<br />
            lblField(i).Text = row("lblField").ToString()<br />
            lblField(i).TextAlign = System.Drawing.ContentAlignment.MiddleRight<br />
            lblField(i).Width = 100<br />
<br />
            ' GroupBox<br />
            gb(i).Location = New System.Drawing.Point(x + 110, y + 32)<br />
            gb(i).Name = "gb" + row("FieldName").ToString() + i.ToString()<br />
            gb(i).Size = New System.Drawing.Size(55, 25)<br />
            gb(i).TabIndex = 0<br />
            gb(i).TabStop = False<br />
            gb(i).Tag = i<br />
<br />
            ' Radiobuttons<br />
            rbNot(i).Checked = CBool(row("rbNot"))<br />
            rbNot(i).Location = New System.Drawing.Point(5, 9)<br />
            rbNot(i).Name = "rbNot"<br />
            rbNot(i).Size = New System.Drawing.Size(14, 13)<br />
            rbNot(i).TabIndex = 1<br />
            rbNot(i).TabStop = True<br />
            rbNot(i).UseVisualStyleBackColor = True<br />
            AddHandler rbNot(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
            rbNot(i).Tag = i<br />
<br />
            rbIn(i).Checked = CBool(row("rbIn"))<br />
            rbIn(i).Location = New System.Drawing.Point(20, 9)<br />
            rbIn(i).Name = "rbIn"<br />
            rbIn(i).Size = New System.Drawing.Size(14, 13)<br />
            rbIn(i).TabIndex = 2<br />
            rbIn(i).UseVisualStyleBackColor = True<br />
            AddHandler rbIn(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
            rbIn(i).Tag = i<br />
<br />
            rbNotin(i).Checked = CBool(row("rbNotin"))<br />
            rbNotin(i).Location = New System.Drawing.Point(35, 9)<br />
            rbNotin(i).Name = "rbNotin"<br />
            rbNotin(i).Size = New System.Drawing.Size(14, 13)<br />
            rbNotin(i).TabIndex = 3<br />
            rbNotin(i).UseVisualStyleBackColor = True<br />
            AddHandler rbNotin(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
            rbNotin(i).Tag = i<br />
<br />
            gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})<br />
<br />
            If CBool(row("FlgSearchbtn")) = True Then<br />
                ' Button<br />
                btnSearch(i).Visible = True<br />
                btnSearch(i).Cursor = Cursors.Hand<br />
                btnSearch(i).Location = New System.Drawing.Point(x + 165, y + 37)<br />
                btnSearch(i).Name = "btnSearch"<br />
                btnSearch(i).Text = "..."<br />
                btnSearch(i).Size = New System.Drawing.Size(33, 20)<br />
                btnSearch(i).TabIndex = 10<br />
                btnSearch(i).UseVisualStyleBackColor = True<br />
                AddHandler btnSearch(i).Click, AddressOf btnSearch_Click<br />
                btnSearch(i).Tag = i<br />
<br />
                ' Label<br />
                lblSearch(i).Location = New System.Drawing.Point(x + 200, y + 40)<br />
                lblSearch(i).Name = "lblSelection"<br />
                lblSearch(i).Size = New System.Drawing.Size(100, 20)<br />
                lblSearch(i).TabIndex = 11<br />
                lblSearch(i).Text = "Selectie..."<br />
            End If<br />
<br />
            If CBool(row("FlgSelection")) = True Then<br />
                ' TxtValue<br />
                txtValue(i).Visible = True<br />
                txtValue(i).Location = New System.Drawing.Point(x + 200, y + 38)<br />
                txtValue(i).MaxLength = 9000<br />
                txtValue(i).Size = New System.Drawing.Size(100, 20)<br />
                txtValue(i).TabIndex = 20<br />
                txtValue(i).Tag = i<br />
            End If<br />
<br />
            If CBool(row("FlgFromTo")) = True Then<br />
                ' txtFrom<br />
                txtFrom(i).Visible = True<br />
                txtFrom(i).Location = New System.Drawing.Point(x + 200, y + 38)<br />
                txtFrom(i).MaxLength = 9000<br />
                txtFrom(i).Size = New System.Drawing.Size(100, 20)<br />
                txtFrom(i).TabIndex = 30<br />
                txtFrom(i).Tag = i<br />
<br />
                'txtTo<br />
                txtTo(i).Visible = True<br />
                txtTo(i).Location = New System.Drawing.Point(x + 302, y + 38)<br />
                txtTo(i).MaxLength = 9000<br />
                txtTo(i).Size = New System.Drawing.Size(100, 20)<br />
                txtTo(i).TabIndex = 40<br />
                txtTo(i).Tag = i<br />
<br />
                maxwidth = 420<br />
            End If<br />
<br />
            Controls.AddRange(New Control() {lblField(i), btnSearch(i), lblSearch(i), txtValue(i), txtFrom(i), txtTo(i), _<br />
             gb(i)})<br />
<br />
            ' --------------------------------<br />
            ' Set controls visible when needed<br />
            ' --------------------------------<br />
            rbNot(i).Checked = CBool(row("rbNot"))<br />
            rbIn(i).Checked = CBool(row("rbIn"))<br />
            rbNotin(i).Checked = CBool(row("rbNotin"))<br />
<br />
            If CBool(row("rbNot")) Then<br />
                SetControlsVisible(i, False)<br />
            Else<br />
                SetControlsVisible(i, True)<br />
            End If<br />
<br />
            i += 1<br />
        Next<br />

I didn't forget about you! I've just been really damn busy both at work and home. From the test app that I've managed to sling together, everything LOOKS ok, but I've don't have the test data to really beat the snot out of it. If you could post the first few records of your table, it would help a lot.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Dave Kreskowiak wrote:
I've just been really damn busy both at work and home

I can tottaly understand that, I sleep about 5 hours a night and the rest of the time I work and still haven't got enough time so...

there isn't a table behind it.
maybe if I explain a bit better what the meaning of it you'll understand better so here I go (trying very hard):

I have a project where the user has to be able to search for records by filters he can set himself.
So I designed a form (frmsearch) that would do that and made that form dynamicly so that I can reuse it everywhere I want (I'm very lasy (don't like to copy paste or do the same thing to much);P)
here is how such a form would look like(described)

(label)name:
inside groupbox 3radiobuttons
(radiobutton) rbnot (= no filter)
(radiobutton) rbin (= record field contains whatever the user set in textbox)
(radiobutton) rbnotin (= record field does not contains whatever the user set in textbox)
and then a few more things for design purposes

this way all I have to do in the form that calls frmsearch is the next:

Dim dt As DataTable = clsSearch.createDataTable
        Dim dr As DataRow
        dr = dt.NewRow()
        dr("FieldName") = "ActiviteitTypeCode"
        dr("FieldType") = "string"
        dr("lblField") = "Code:"
        dr("rbNot") = True
        dr("rbIn") = False
        dr("rbNotin") = False
        dr("FlgSearchbtn") = False
        dr("FlgSelection") = True
        dr("FlgFromTo") = False
        dr("txtSelection") = ""
        dr("txtFrom") = ""
        dr("txtTo") = ""
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr("FieldName") = "ActiviteitTypeOmschrNLD"
        dr("FieldType") = "string"
        dr("lblField") = "Omschrijving NLD:"
        dr("rbNot") = True
        dr("rbIn") = False
        dr("rbNotin") = False
        dr("FlgSearchbtn") = False
        dr("FlgSelection") = True
        dr("FlgFromTo") = False
        dr("txtSelection") = ""
        dr("txtFrom") = ""
        dr("txtTo") = ""
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        Dim frm As New frmSearch(dt)
        frm.ShowDialog()

then frmsearch returns an sql string (where clause) wich I can use to select the correct data and display it on the form

I hope this clears things up a bit
if not I'm willing to send you the project (or part of it) so you test it for you're self but then I'll need an email account since I can't attach anything here

thanks in advance for all you'r help and time

OK. I just cannot break this thing the way you described. The check list to go through for creating a groupbox with a few radio buttons in it is this:

Create the groupbox
    Set Text, Size, Location properties
    Add GroupBox to host form's Controls collection

Do While more radios to create
    Create RadioButton
        Set Text, Location, AutoSize properties
        AddHandler CheckChanged event to appropriate CheckChanged handler
            (event handler must be in host form's class, NOT another form)
        Add RadioButton to host form's Controls collection
        Add RadioBUtton to host GroupBox Controls collection
Loop

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

yeah I know it's not easy to understand but maybe if I send you all my code
so here it is:

frmsearch load: (logic: we iterate true every row in dt and create the controls for that row (based on values in the dt (look at third code block to see an example of dt)))

Private Sub frmBedrijfZoek_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    If dt1.Rows.Count > 0 Then

        Dim x As Integer = 10, y As Integer = 0, yInit As Integer = 0, i As Integer = 0, len As Integer = dt1.Rows.Count, maxwidth As Integer = 310
        y = 0 '20
        yInit = 20

        SuspendLayout()

        For Each row As DataRow In dt1.Rows
            y += 20

            ' Create controls
            lblField(i) = New Label()
            rbNot(i) = New RadioButton()
            rbIn(i) = New RadioButton()
            rbNotin(i) = New RadioButton()
            gb(i) = New GroupBox()
            txtFrom(i) = New TextBox()
            txtTo(i) = New TextBox()
            btnSearch(i) = New Button()
            txtValue(i) = New TextBox()
            lblSearch(i) = New Label()

            ' lblField
            lblField(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte((0)))
            lblField(i).ForeColor = System.Drawing.Color.FromArgb(CInt(CByte((0))), CInt(CByte((0))), CInt(CByte((0))))
            lblField(i).Location = New System.Drawing.Point(x + 10, y + 30)
            lblField(i).Name = row("FieldName").ToString()
            lblField(i).Size = New System.Drawing.Size(250, 30)
            lblField(i).TabIndex = 0
            lblField(i).Text = row("lblField").ToString()
            lblField(i).TextAlign = System.Drawing.ContentAlignment.MiddleRight
            lblField(i).Width = 100

            ' GroupBox
            gb(i).Location = New System.Drawing.Point(x + 110, y + 32)
            gb(i).Name = "gb" + row("FieldName").ToString() + i.ToString()
            gb(i).Size = New System.Drawing.Size(55, 25)
            gb(i).TabIndex = 0
            gb(i).TabStop = False
            gb(i).Tag = i

            ' Radiobuttons
            rbNot(i).Checked = CBool(row("rbNot"))
            rbNot(i).Location = New System.Drawing.Point(5, 9)
            rbNot(i).Name = "rbNot"
            rbNot(i).Size = New System.Drawing.Size(14, 13)
            rbNot(i).TabIndex = 1
            rbNot(i).TabStop = True
            rbNot(i).UseVisualStyleBackColor = True
            rbNot(i).Tag = i

            rbIn(i).Checked = CBool(row("rbIn"))
            rbIn(i).Location = New System.Drawing.Point(20, 9)
            rbIn(i).Name = "rbIn"
            rbIn(i).Size = New System.Drawing.Size(14, 13)
            rbIn(i).TabIndex = 2
            rbIn(i).UseVisualStyleBackColor = True
            rbIn(i).Tag = i

            rbNotin(i).Checked = CBool(row("rbNotin"))
            rbNotin(i).Location = New System.Drawing.Point(35, 9)
            rbNotin(i).Name = "rbNotin"
            rbNotin(i).Size = New System.Drawing.Size(14, 13)
            rbNotin(i).TabIndex = 3
            rbNotin(i).UseVisualStyleBackColor = True
            rbNotin(i).Tag = i

            AddHandler rbNot(i).CheckedChanged, AddressOf rb_CheckedChanged
            AddHandler rbIn(i).CheckedChanged, AddressOf rb_CheckedChanged
            AddHandler rbNotin(i).CheckedChanged, AddressOf rb_CheckedChanged
            gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})

            If CBool(row("FlgSearchbtn")) = True Then
                ' Button
                btnSearch(i).Visible = True
                btnSearch(i).Cursor = Cursors.Hand
                btnSearch(i).Location = New System.Drawing.Point(x + 165, y + 37)
                btnSearch(i).Name = "btnSearch"
                btnSearch(i).Text = "..."
                btnSearch(i).Size = New System.Drawing.Size(33, 20)
                btnSearch(i).TabIndex = 10
                btnSearch(i).UseVisualStyleBackColor = True
                AddHandler btnSearch(i).Click, AddressOf btnSearch_Click
                btnSearch(i).Tag = i

                ' Label
                lblSearch(i).Location = New System.Drawing.Point(x + 200, y + 40)
                lblSearch(i).Name = "lblSelection"
                lblSearch(i).Size = New System.Drawing.Size(100, 20)
                lblSearch(i).TabIndex = 11
                lblSearch(i).Text = "Selectie..."
            End If

            If CBool(row("FlgSelection")) = True Then
                ' TxtValue
                txtValue(i).Visible = True
                txtValue(i).Location = New System.Drawing.Point(x + 200, y + 38)
                txtValue(i).MaxLength = 9000
                txtValue(i).Size = New System.Drawing.Size(100, 20)
                txtValue(i).TabIndex = 20
                txtValue(i).Tag = i
            End If

            If CBool(row("FlgFromTo")) = True Then
                ' txtFrom
                txtFrom(i).Visible = True
                txtFrom(i).Location = New System.Drawing.Point(x + 200, y + 38)
                txtFrom(i).MaxLength = 9000
                txtFrom(i).Size = New System.Drawing.Size(100, 20)
                txtFrom(i).TabIndex = 30
                txtFrom(i).Tag = i

                'txtTo
                txtTo(i).Visible = True
                txtTo(i).Location = New System.Drawing.Point(x + 302, y + 38)
                txtTo(i).MaxLength = 9000
                txtTo(i).Size = New System.Drawing.Size(100, 20)
                txtTo(i).TabIndex = 40
                txtTo(i).Tag = i

                maxwidth = 420
            End If

            Controls.AddRange(New Control() {lblField(i), btnSearch(i), lblSearch(i), txtValue(i), txtFrom(i), txtTo(i), gb(i)})

            If CBool(row("rbNot")) Then
                SetControlsVisible(i, False)
            Else
                SetControlsVisible(i, True)
            End If

            i += 1
        Next

        Dim groupbox As New GroupBox()

        groupbox.Location = New System.Drawing.Point(x, yInit)
        groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
        groupbox.TabIndex = 0
        groupbox.TabStop = False
        groupbox.Text = "Selectie binnen 'Bedrijf'"

        Controls.Add(groupbox)

        ResumeLayout(False)
    End If
End Sub

the checkchanged methode:
the first if is our 'bad' solution (doesn't even work everytime but its the only thing we'v come up with so far)

Private Sub rb_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        If counter < 2 Then ' This is a tricky solution for VB.Net (not C#) because this event is triggered in the load of the form
            rbNot(0).Checked = CBool(dt1.Rows(0)("rbNot"))
            rbIn(0).Checked = CBool(dt1.Rows(0)("rbIn"))
            rbNotin(0).Checked = CBool(dt1.Rows(0)("rbNotin"))

            counter += 1
            Exit Sub
        End If

        Dim idx As Integer = DirectCast(DirectCast(sender, RadioButton).Tag, Int32)
        Dim chk As Boolean = DirectCast(sender, RadioButton).Checked

        If DirectCast(sender, RadioButton).Name = "rbNot" Then
            chk = Not chk
        End If

        SetControlsVisible(idx, chk)
    End Sub

example of dt: (this will give 2 groupboxes of 3 radiobuttons)

Public Sub MnuSearch() Implements IfrmClient.MnuSearch
    Dim dt As DataTable = clsSearch.createDataTable
    Dim dr As DataRow
    dr = dt.NewRow()
    dr("FieldName") = "ActiviteitTypeCode"
    dr("FieldType") = "string"
    dr("lblField") = "Code:"
    dr("rbNot") = False 'bug only happens if this is false
    dr("rbIn") = True 'bug only happens if this is true
    dr("rbNotin") = False
    dr("FlgSearchbtn") = False
    dr("FlgSelection") = True
    dr("FlgFromTo") = False
    dr("txtSelection") = ""
    dr("txtFrom") = ""
    dr("txtTo") = ""
    dt.Rows.Add(dr)
    dr = dt.NewRow()
    dr("FieldName") = "ActiviteitTypeOmschrNLD"
    dr("FieldType") = "string"
    dr("lblField") = "Omschrijving NLD:"
    dr("rbNot") = True
    dr("rbIn") = False
    dr("rbNotin") = False
    dr("FlgSearchbtn") = False
    dr("FlgSelection") = True
    dr("FlgFromTo") = False
    dr("txtSelection") = ""
    dr("txtFrom") = ""
    dr("txtTo") = ""
    dt.Rows.Add(dr)

    Dim frm As New frmSearch(dt)
    If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
        where = frm.sqlwhere
        sql = "select ActiviteitTypeCode,ActiviteitTypeOmschrNLD,ActiviteitTypeOmschrFRA,ActiviteitTypeKleur," & _
        "isactief,datum_creatie,user_creatie,datum_wijz,user_wijz from ActiviteitType " & where
        loaddata()
    End If

hope you understand it better now if not I'm always willing to give more code or explanation

TDDragon wrote:
Dim groupbox As New GroupBox()
groupbox.Location = New System.Drawing.Point(x, yInit)
groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
groupbox.TabIndex = 0
groupbox.TabStop = False
groupbox.Text = "Selectie binnen 'Bedrijf'"
Controls.Add(groupbox)

So where do you add the radio buttons to the GroupBox?? I don't see it and it was one of my items in the "Checklist" I posted.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

yeah probably should have told you that this groupbox doesn't matter much it's just for lay-out purposes. The groupbox that matters is the gb groupbox that's the one containing the raio buttons and those are added with the following code:

gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})

Missed that one.

What's with the arrays of controls? [ gb(i) ]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

yeah I'm not quite sure why my college did it like this but I don't think it will make a difference

(I didn't write the code just have to correct it = real fun D'Oh! | :doh:

)

-- modified at 8:32 Friday 17th August, 2007

just asked him, here is his answer:

quote 'Because I can then fit it on to 1 line of code' end quote

o and I just tested it with adding them like this 'gb(i).controls.add(rbnot(i))' and it doesn't make a difference so...

I have an update on the problem:

when I use the following as the first datarow I don't have the problem

dr = dt.NewRow()
        dr("FieldName") = "ActiviteitTypeCode"
        dr("FieldType") = "string"
        dr("lblField") = "Code:"
        dr("rbNot") = True 'this changed from false to true
        dr("rbIn") = False 'this changed from true to false
        dr("rbNotin") = False
        dr("FlgSearchbtn") = False
        dr("FlgSelection") = True
        dr("FlgFromTo") = False
        dr("txtSelection") = ""
        dr("txtFrom") = ""
        dr("txtTo") = ""
        dt.Rows.Add(dr)

I didn't answer this question yesterday because I don't have a fricken' clue what you're talking about!! Reposting the exact same question isn't going to help.

You're description of what you want amounts to a rambling pile of _____ that I can't make heads or tails of. A much simpler explanation of what you want would help.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Dave Kreskowiak wrote:
didn't answer this question yesterday because I don't have a fricken' clue what you're talking about!

Dave Kreskowiak wrote:
description of what you want amounts to a rambling pile of _____ that I can't make heads or tails of

What was the pile of _____ that was from the deleted post? If I dare ask Roll eyes | :rolleyes:

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

Deleted?? I just left a blank for someone to fill in their culturally-specific reference to the term "dung".

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Dave Kreskowiak wrote:
just left a blank for someone to fill in their culturally-specific reference to the term "dung".

I figured it was a fill in the blank thing.

Also, I was just wondering what the original post was...

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

I want to read data from a hardware device like time access punching machine.

What is the complete process to read data and storing into a databse from any hardware device.

If any one have some idea, please guide me.

Thanks,

Pathak

this is different for every hardware device.
normally the hardware device has an dll you can access (if the manufacterer wants you to), and also some documentation on how to use that dll

I suggest you read that documentation, since every dll is different there is no global answer to you question

hi

friends,

i use SQLBASE as backend

i have a table by name date1. in that i have two cloumns with name and dob. here dob column contains date in the following format(19-feb-1987). now i wan to display the dat ein the datagrid in the same format. but i am getting the date as follows (02/19/1987 12:30:40 am). but i want to display the date as it is in the datagrid from the database.

i have tried the boundcolumn part. but there is a draw back. cause as we r binding the column with a certain column form the database, if in the query that particular column is not there. error occurs.

i would like to know the solution for this

there is no such thing as good or bad.

If you're letting the DataGridView create the columns for you, this is the default formating you get for DateTime values.

Either you have to alter the autogenerated column AFTER you bind the data, supplying a new formating string to the column, or, you have to create your own columns in the DataGridView and make the same changes. Either way, you're supplying the format string for how you want the date to show up to the columns DefaultCellStyle.Format property.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

hey
change the data type of the column dob from any thing related to datetime and put it nvarchar and hope this makes your problem works

NEO ISSA

hi guys

i am developing a project in vb.net, it is ntier based,,

here i have my business layer , data access layer and as well ui layer,,,

issue is that for each of my class in each of my layer except ui i am using
singelton pattern to create object and call methods of any layer,,

if it is a good approach or i shuld call each time new object with new keyword to access methids in these classes,, i am confused,,

thanks in advance

best regards

hello