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?

 

 

 

 

Then its as easy as

 

msgbox Row.Record(0).Value

 

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

 

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

try this with reprotcontrol selection changed or rowdoublclick

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

I hope that will work for you

 

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?

 

 

I have a RowDblClick even that looksl ike this... in VB6 ... and works perfectly

 

Private Sub Data_RowDblClick(ByVal Row As XtremeReportControl.IReportRow, _
                             ByVal Item As XtremeReportControl.IReportRecordItem)

 

    MsgBox Row.Record(4).Value

 

End Sub

 

 

You can also try Row.Record(4).Caption ... depending on what you are doing... you may need to do that.

 

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

I used the same code with the SelectionChanged events to get the value of the first column with no problems. then when I double click on reportcontrol (RowDblClick events), I check for the value of the first column, if the value is empty I don't do nothing otherwise I do whatever I want to do base on the value of column 1.

good luck.

 

 

 

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...

 

You are formatting each cell to look like your result... hum... interesting... might be an interesting trick to use sometime... but... uh.. why?

 

 

 

 

 

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/...)