Listview control in VB

Question

0.00/5 (No votes)

See more:

Hi,
There is one requirement is my application:

There is application which is developed in vb.The application has a database that holds all the fund ID's, fund names etc.

The application uses this database to complete the switch letters/switch spreadsheet we produce.

The issue is occuring because some funds have the same Fund Name but different Fund ID's.

For Example:-

Fund ID System Fund Name

829 Av Aberdeen NthAmerEqtyS2

905 Av Aberdeen NthAmerEqtyS2

As you can see the names are the same.

This doesn't cause an issue with the Switch Letters we produce as we do not include the Fund ID.

However, for the Switch spreadsheet that is sometimes produced, this does include the Fund ID & therefore, for the example above, we would quote 829 as the Fund ID rather than 905.

This would suggest to me that we are working out the Fund ID from the Fund Name rather than working out the Fund Name from the Fund ID.

As per my analysis in this application there are some listviews are being used and there only the field values are displaying after fetching he data from the DB.But while printing in the Excelsheet its creatng probem.Wrong value(Fund code is comming in excelspread sheet)which are not correct.
Could you anyone have a look on this and have a response regarding this ssue.

Posted 30-Nov-11 2:59am

Sisir Behera

Add a Solution

Comments

Kschuler 30-Nov-11 11:45am

You're question is very confusing. Can you please indicate exactly how it is supposed to work and then how it is working right now. Generally if there is an ID and Name for something, you want to use the ID to lookup the name and not vice versa.

DaveAuld 30-Nov-11 12:09pm

And your question is what exactly? What do you want us to look at, we have no idea you implementation, and there isn't enough to be going on in the text above from what I can see...

coded007 30-Nov-11 23:16pm

Please use Fund ID's also in list view so it will be helpful

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

JP.SIAVRAJ · Answer 1 · 2011-12-03T22:00:00

I think you said the grouping model,

VB

Public Sub ListviewFill_Group()
        Try
            Dim lvGroup As ListViewGroup
            Dim lvItem As ListViewItem

            sLV.lv.Items.Clear()
//Select Distinct(FundID) From FundDetails...
            rsSql = objConn.ResultSet("PLACE your Sql Query")
            If rsSql.HasRows Then
                Do While rsSql.Read
                    'MsgBox(rsSql.Item(0))
                    lvGroup = New ListViewGroup(rsSql.Item(0))
                    lvGroup.Items.Add(rsSql.Item(0))
                    sLV.lv.Groups.Add(lvGroup)
                    'rsSql1 = objConn.ResultSet(sLV.lvSub & " where " & sLV.lvWhereCondForSub)
                    If sLV.lvOrderBy <> "" Then
                        SQry = sLV.lvSub & " where " & sLV.lvDistColumn & "='" & rsSql.Item(1) & "' Order by " & sLV.lvOrderBy & " ASC"
                    Else
                        SQry = sLV.lvSub & " where " & sLV.lvDistColumn & "='" & rsSql.Item(1) & "'"
                    End If
                    rsSql1 = objConn.ResultSet(SQry)
                    If rsSql1.HasRows Then
                        Do While rsSql1.Read
                            lvItem = New ListViewItem(New String() {rsSql1.Item(0), rsSql1.Item(1), rsSql1.Item(2), rsSql1.Item(3), rsSql1.Item(4)}, 1, lvGroup)
                            ' lvItem.Group = lvGroup
                            sLV.lv.Items.Add(lvItem)
                        Loop
                    End If
                    rsSql1 = Nothing

                Loop
            End If
            'sLV.lv.Groups.Add(lvGroup)


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub