Dobro dosao na forum.
Code:
Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "Prva kol", ListView1.Width / 6
ListView1.ColumnHeaders.Add , , "Druga", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "treca", ListView1.Width / 5
ListView1.View = lvwReport
Set objItem = ListView1.ListItems.Add(1, , "aaa")
objItem.SubItems(1) = "123"
objItem.SubItems(2) = "ccc"
Set objItem = ListView1.ListItems.Add(2, , "bbb")
objItem.SubItems(1) = "567"
objItem.SubItems(2) = "ccc"
Set objItem = ListView1.ListItems.Item(1)
objItem.SubItems(2) = "ddd"
Set objItem = ListView1.ListItems.Add(3, , "zadnji")
ListView1.SelectedItem = ListView1.ListItems(2)
Debug.Print ListView1.SelectedItem
End Sub
Predposlednjom linijom koda (ako zanemarimo End Sub) mu kazemo da se pozicionira na drugi red u nasoj ListView kontroli.
Zadnjom linijom uzimamo vrijednost iz fokusirane celije.
Da bi procitao neki subitems ides ovako:
ListView1.SelectedItem.ListSubItems(2)
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'