اضافه كردن ركورد به ليست ويو با سه ستون

[swallow.pa]

سلام به همه
من توي برنامه ام از ليست ويو استفاده كردم كه سه ستون داره و كاربرد هر سه ستون متفاوته داده هاشون فرق مي كنه مي خوام بدونم چطور اطلاعات رو توي هر كدوم بفرستم و از اونها بخونم
ممنون
البته اين كدها بودن اما با توجه به كار من كارائي نداشتن


Dim str(5) As String
Dim itm As ListViewItem
str(0) = "Rob Machy"
str(1) = "100 North Ave"
str(2) = "Business Manager"
str(3) = "89,000"
str(4) = "Development"
itm = New ListViewItem(str)
ListView1.Items.Add(itm)

من مي خوام خودم به ستون يك اضافه كنم و ...

[ROSTAM2]

برای اضافه کردن

WITH ListView1.Items.Add(STR(0),0)
.SubItems.Add(str(1))
.SubItems.Add(str(2))
.SubItems.Add(str(3))
.SubItems.Add(str(4))
End With


برای بازخوانی

WITH ListView1.SelectedItems(0)
str(0) = .Text
str(1) = .SubItems(1).text
str(2) = .SubItems(2).text
str(3) = .SubItems(3).text
str(4) = .SubItems(4).text
End With