Getting the value of column 1 when doubleclicking

 

I use a reportControl to read customers from my MySQL-database.

 

When I double-click a certain row, I would like to get the customer-number which is placed i the first column.

 

I think I shall use my CustList.RowDblClick, or am I wrong?

 

 

 

Thank You for your reply, but it does not work.

 

When I use your code, I get the row number and not the content.

I've tried

       If Not wndview.FocusedRow.GroupRow Then
            CustomeNumber = wndview.FocusedRow.Record(Col1).Value
        end if

 

and it returns the row number

 

And if I do this:

       If Not wndview.FocusedRow.GroupRow Then
            CustomeNumber = wndview.FocusedRow.Record(SOME_RUBBISH).Value
        end if

 

the row number is returned too.

 

Could there be som settings missing in the report control?

 

This is what I do:

 

First, I create the headers

    frmKontakter.CustomerList.Columns.Add 0, "Customer Number", 25, True
    frmKontakter.CustomerList.Columns.Column(0).Groupable = False
    frmKontakter.CustomerList.Columns.Add 1, "Company name", 100, True
    frmKontakter.CustomerList.Columns.Add 2, "Address", 100, True
    frmKontakter.CustomerList.Columns.Add 3, "ZIP", 50, True

Then I add the data:

 

aCount = rsTable.RecordCount
rsTable.MoveFirst
a = 0

While a < aCount

        Set Record = CustomerList.Records.Add

        Set Item = Record.AddItem(a)
        Item.Format = rsTable.Fields!CustomerNUmber

        Set Item = Record.AddItem(Str)
        Item.Format = rsTable.Fields!CompanyName

        Set Item = Record.AddItem(Str)
        Item.Format = rsTable.Fields!Address
        Set Item = Record.AddItem(Str)
        Item.Format = rsTable.Fields!ZIP

        a = a + 1
        rsTable.MoveNext
Wend
CustomerList.Populate

 

 

If that is in someway is close to your exact code... uh... what did you expect?

 

You are placing a count into the first column?

 

I also assume you define a value for Str elsewhere.. but this:

 

 

        Set Item = Record.AddItem(a)

 

 

listed like that .. when the others are listed like:

 

 

        Set Item = Record.AddItem(Str)

 

 

 

Would as I said... make me think that you are assigning the value to Str elsewhere... and just used that for filler... but the first one.. it really looks like you put in "a" there... or its value anyway... which would make it so that when you double click on it... you are going to get what looks like a row number...

 

... if you post the actual code... from the select statement to the end of the loop of the results... I can probably have a better clue what is wrong...

 

Thank you very much for your help.

You really got me right on track.

 

At first, I did:

      Set Item = Record.AddItem(rsTable.Fields!CustomerNUmber)

 

but the List stayed empty

 

Then I started thinking about what you said about formatting.

 

So, now I do this:

   Set Item = Record.AddItem(CInt(rsTable.Fields!CustomerNUmber))

   Set Item = Record.AddItem(CStr(rsTable.Fields!CompanyName))

 

 

And everything is pure happiness

 

Expand your Code with

Set Item = Record.AddItem(rsTable.Fields!CustomerNUmber.Value)

 

This save time and also the content-type stays there (eg. Date/Str/Double/int/...)