| |
|
|
| |  как добавить удалить
в Listview
LV.Clear - не работает
Способ или параметр не найдены
LV.AddItem .Fields(field_Price) -- аналогично...
| |
| |
| |
|
|
| |
|
|
| | Представьте себе
Представьте себе
Совсем как огуречик
Представьте себе
Представьте себе
И Clear не берёт
========================
пишу LV. после точки выпадает список там нет таких методов - что за фигня...... | |
| |
| |
| |
 36 Кб. |
|
| | Вот так всё выглядит | |
| |
| |
| |
15 Кб. |
|
| | и вот так | |
| |
| |
| |
30 Кб. |
|
| | и в итоге | |
| |
| |
| |
|
|
| | Оказалось вот так работает
Call LV.ListItems.Add(, , .Fields(field_Price))
|
или вот так
Call LV.ListItems.Add(1, , .Fields(field_Name))
Call LV.ListItems.Add(2, , .Fields(field_Price))
Call LV.ListItems.Add(3, , .Fields(field_Shtrikhkod))
|
но билибирда с колонками........(столбцами) | |
| |
| |
|
|
| |
|
|
| | Да спасибо!!!
Я допёр 
Я вот ищу продукт по штрихкоду в таблице, но когда продукта нет запись - не найдена говорят и ошибочка вылетает.
Как мне предупредить вываливание
Sub GetProducts()
Set rs = New ADODB.Recordset ' набор записей
Set con = New ADODB.Connection ' подключение
' Открывает подключение
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\VB-DB\NOMENKLATURA.mdb"
con.Open strSQL
' Открывает Recordset
rs.ActiveConnection = con ' = OpenRecordset("NOMENKLATURA_TBL")
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open "SELECT NOMENKLATURA_TBL.* From NOMENKLATURA_TBL Where (((NOMENKLATURA_TBL.Штрихкод) = '" & Me!Текст1.Text & "')) WITH OWNERACCESS OPTION;"
'"NOMENKLATURA_TBL"
'rs.MoveFirst
If IsNull(rs!Наименование) = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
If rs!Наименование = "" Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
' Добавляет в список
Set mItem = usfODE.lsvODE.ListItems.Add()
mItem.Text = rs!Наименование
mItem.SubItems(1) = CCur(rs!Цена)
mItem.SubItems(2) = rs!Штрихкод
' Определяет, какой значок увязать с ListItem
mItem.SmallIcon = 2
'rs.MoveNext Получает следующую запись
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Exit Sub
Exit_:
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
|
Так не подходит
If rs!Наименование = "" Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|
Так не находит
If IsNull(rs!Наименование) = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|
Выкручиваюсь вот так
If rs.EOF = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|
| |
| |
| |
