List View Control

Quote:

---

Originally Posted by seema_s

I have modified the SQL statement but i could not get the data for CITY column.

---

If you didn't get any errors when you ran it, then you got the data for the CITY column. It just isn't being displayed yet.

The important thing, however, before doing this next modification to actually display the data, is that you didn't get any errors when you ran the query.

Now, to display the city data, along with the name data, make this modification:

VB Code:

Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    'add this line
    lvwItem.SubItems(1) = rs.Fields.Item("City").Value
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Mr. Hack, you are a marvellous programmer. It works fine and shows both coloumns and existing data.

Could I view it in grid lines in lvwReport view?

I can not select anything from "CITY" while I can select any name from "NAME" coloumn?

Quote:

---

Originally Posted by seema_s

Could I view it in grid lines in lvwReport view?

---

Yes. Right mouse click on the ListView and Click properties.

Under the General Tab you will see a checkbox that says: Gridlines

Check the box and click OK.

Quote:

---

Originally Posted by Hack

Yes. Right mouse click on the ListView and Click properties.

Under the General Tab you will see a checkbox that says: Gridlines

Check the box and click OK.

---

I can not see any check box like this.

What service pack do you have installed on your machine for Visual Basic?

This is what you should see.

Quote:

---

Originally Posted by Hack

What service pack do you have installed on your machine for Visual Basic?

---

I have no idea. But could you please let me know how can I get the selected data from a Datagrid to Text box.

Look at the VB Aboutbox. That will tell you what service pack you have.

In order to get the other checkboxs on the ListView property page, you may have to install a newer VB service pack than you currently have.

(BTW: This thread is about the ListView control. If you have a question about a datagrid, it would be better to start a new thread on this new topic)

Quote:

---

Originally Posted by Hack

Look at the VB Aboutbox. That will tell you what service pack you have.

In order to get the other checkboxs on the ListView property page, you may have to install a newer VB service pack than you currently have.

(BTW: This thread is about the ListView control. If you have a question about a datagrid, it would be better to start a new thread on this new topic)

---

It is ok. How can I select a city name from the coloumn "CITY" in the lvwReport View and get the data in a text box.

Quote:

---

Originally Posted by seema_s

It is ok. How can I select a city name from the coloumn "CITY" in the lvwReport View and get the data in a text box.

---

Use the ItemClick event of your ListView.

VB Code:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
txtCity.Text = Item.SubItems(1)
End Sub

Quote:

---

Originally Posted by Hack

Use the ItemClick event of your ListView.

VB Code:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
txtCity.Text = Item.SubItems(1)
End Sub

---

Yes, now it shows the data. Very kind of you to help me clearly.

Regards,

Seema_s

No problem. Thats one of the reasons I'm here.

If all of your Listview questions have been answered, please pull down the Thread Tools menu and click the Mark Thread Resolved button. That will let everyone know that you have your answer.

Quote:

---

Originally Posted by Hack

Use the ItemClick event of your ListView.

VB Code:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
txtCity.Text = Item.SubItems(1)
End Sub

---

Now I tried with the "Microsoft Windows Common Controls 6.o (SP4)" (to get the grids) and used the same code which I used for "Microsoft Windows Common Controls 5.o (SP2)" just before but does not work. It shows the following error:

You are going to need to install at least Service Pack 5 for Visual Basic.

You can download that from Microsoft's web site.

Quote:

---

Originally Posted by Hack

You are going to need to install at least Service Pack 5 for Visual Basic.

You can download that from Microsoft's web site.

---

------------------------------------------------------------------------
I have added one more ListView control on a form (ListView2). How can I write/modify the code? The code for previous ListView control (ListView1) is as follows:

VB Code:

Private Sub Form_Load()
Call data_connect
rs.Open "Select * from TBL1", db
Set DataGrid1.DataSource = rs
 
ListView1.View = lvwReport
cmdLoadListView_Click
End Sub
 
End Sub
 
Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME, CITY FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    lvwItem.SubItems(1) = rs.Fields.Item("City").Value
 
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Please help me. ( I also want to know how can I sort ListView Report by A to Z format (alphabetical}?)

Seema_S

hi
do following modification in your Code

Dim xlistitem As ListItem

Do
Set xListItem = listview1.ListItems.Add(, , rs(0))
For i = 1 To intFCount - 1
xListItem.ListSubItems.Add , , rs(i)
Next i
rs.MoveNext
Loop While rs.EOF = False

Hi,

The following code is working (without using gridlines) fine with Microsoft Windows Common Controls 5.0 (SP2) ListView. But not working with Microsoft Windows Common Controls 6.0 (SP4) ListView (using with gridlines). What could be the problem.

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
Text1.Text = Item.Text
End Sub

(It shows error: User-defined type not defined.

Quote:

---

Originally Posted by seema_s

Hi,

The following code is working (without using gridlines) fine with Microsoft Windows Common Controls 5.0 (SP2) ListView. But not working with Microsoft Windows Common Controls 6.0 (SP4) ListView (using with gridlines). What could be the problem.

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
Text1.Text = Item.Text
End Sub

(It shows error: User-defined type not defined.

---

The problem is ComctlLib. That doesn't exist in SP(4) and that is the type that is not defined.

For that, you need SP(5) or later.

Quote:

---

Originally Posted by Hack

The problem is ComctlLib. That doesn't exist in SP(4) and that is the type that is not defined.

For that, you need SP(5) or later.

---

Hi, Mr. Hack. I tried to download it from Microsoft website but I could not get proper link to download it. Any help plz.

Seema_S

Quote:

---

Originally Posted by seema_s

Hi, Mr. Hack. I tried to download it from Microsoft website but I could not get proper link to download it. Any help plz.

Seema_S

---

What happened when you tried to download it from Microsoft's web site?

(PS: Even if I had it, which I don't....it is automatically loaded on all developer machines when our hardware departement loads them up), it is too big to send anywhere)