Help! ListView!!!
Подскажите плиз, что я делаю неверно:
---
Dim db As Database
Dim rs As Recordset
Dim li As ListItem
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\..\data.mdb")
Set rs = db.OpenRecordset("cli")
rs.MoveFirst
Do While Not rs.EOF
Set li = lv.ListItems.Add(, , CStr(rs.Fields(0).Value))
li.SubItems(1) = CStr(rs.Fields(1).Value)
rs.MoveNext
Loop
End Sub
---
li.SubItems(1) = "что-либо" дает rutime-ошибку 380 "Invalid property value". Почему, кто-нибудь знает? Заранее благодарен!
---
Dim db As Database
Dim rs As Recordset
Dim li As ListItem
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\..\data.mdb")
Set rs = db.OpenRecordset("cli")
rs.MoveFirst
Do While Not rs.EOF
Set li = lv.ListItems.Add(, , CStr(rs.Fields(0).Value))
li.SubItems(1) = CStr(rs.Fields(1).Value)
rs.MoveNext
Loop
End Sub
---
li.SubItems(1) = "что-либо" дает rutime-ошибку 380 "Invalid property value". Почему, кто-нибудь знает? Заранее благодарен!
Цитата:
Originally posted by Демон
Подскажите плиз, что я делаю неверно:
---
Dim db As Database
Dim rs As Recordset
Dim li As ListItem
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\..\data.mdb")
Set rs = db.OpenRecordset("cli")
rs.MoveFirst
Do While Not rs.EOF
Set li = lv.ListItems.Add(, , CStr(rs.Fields(0).Value))
li.SubItems(1) = CStr(rs.Fields(1).Value)
rs.MoveNext
Loop
End Sub
---
li.SubItems(1) = "что-либо" дает rutime-ошибку 380 "Invalid property value". Почему, кто-нибудь знает? Заранее благодарен!
Подскажите плиз, что я делаю неверно:
---
Dim db As Database
Dim rs As Recordset
Dim li As ListItem
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\..\data.mdb")
Set rs = db.OpenRecordset("cli")
rs.MoveFirst
Do While Not rs.EOF
Set li = lv.ListItems.Add(, , CStr(rs.Fields(0).Value))
li.SubItems(1) = CStr(rs.Fields(1).Value)
rs.MoveNext
Loop
End Sub
---
li.SubItems(1) = "что-либо" дает rutime-ошибку 380 "Invalid property value". Почему, кто-нибудь знает? Заранее благодарен!
Может попробуеш li.SubItems(0) вместо li.SubItems(1)
Цитата:
Originally posted by vitaly2003s
Может попробуеш li.SubItems(0) вместо li.SubItems(1)
Может попробуеш li.SubItems(0) вместо li.SubItems(1)
Та же байда... Я в полных непонятках...
Цитата:
Originally posted by Демон
Та же байда... Я в полных непонятках...
Та же байда... Я в полных непонятках...
Может там должно быть еще что то к примеру
li.SubItems(0).Text = "hjkfyu"
или
li.SubItems(0).Value = "fgdfh"
или еще как то есть после li.SubItems(1) должна идти точка а затем нужное свойство