Generic Fill Listview Subroutine

Question

0.00/5 (No votes)

See more:

Hi to all
I have this code to fill Listview with string fields
Is there any way to use the same routine for string and numeric fields????

VB

Do While myData.Read
    lv = New ListViewItem
    strValue = IIf(myData.IsDBNull(0), "", myData.GetValue(0))
    lv.Text = strValue
    For i = 1 To myData.FieldCount() - 1
        If myData.IsDBNull(i) Then
            lv.SubItems.Add("")
        Else
            lv.SubItems.Add(myData.GetString(i))
        End If
    Next i
    Cntr += 1
    lvList.Items.Add(lv)
Loop

Posted 11-Apr-11 5:04am

Vagelisr

Updated 11-Apr-11 5:06am

v2

Add a Solution

2 solutions

Solution 2

VB

Public Sub fill_listview(ByVal query As String, ByVal lv As ListView)
        Dim ds As New DataSet
        ds = fill_dataset(query)
        lv.Items.Clear()
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.HideSelection = False
        Dim x, y As Integer
        For x = 0 To ds.Tables(0).Rows.Count - 1
            Dim lv_item As New ListViewItem
            lv_item.Text = ds.Tables(0).Rows(x)(0).ToString()
            For y = 1 To ds.Tables(0).Columns.Count - 1
                lv_item.SubItems.Add(ds.Tables(0).Rows(x)(y).ToString())
            Next
            lv.Items.Add(lv_item)
        Next
    End Sub

VB

Public Function fill_dataset(ByVal query As String) As DataSet
        connect()
        command.Connection = con
        command.CommandText = query
        command.ExecuteNonQuery()
        Dim ds As New DataSet
        adapter.SelectCommand = command
        adapter.Fill(ds)
        con.Close()
        Return ds
    End Function

Posted 25-May-11 7:58am

Abdisamad Khalif

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)

#realJSOP · Accepted Answer · 2011-04-11T05:35:00

Solution 1

Try this:

VB

Dim data As String = ""
For i = 1 To myData.FieldCount() - 1
    data = ""
    if (Not myData.IsDBNull(i) Then
        data = myData(i).ToString()
    lv.SubItems.Add(data)
Next

Posted 11-Apr-11 5:35am

#realJSOP

Updated 11-Apr-11 5:36am

v2