| |
|
|
| |
lvw.ColumnHeaders.Add , , "Статус.", _
300, lvwColumnLeft '1 STATUS
lvw.ColumnHeaders.Add , , "Описание.", _
2300, lvwColumnLeft '2DESCRIPTION
lvw.ColumnHeaders.Add , , "Полный путь.", _
2300, lvwColumnLeft '3PATCH
lvw.ColumnHeaders.Add , , "Имя файла.", _
900, lvwColumnLeft '4FILESNAME
lvw.ColumnHeaders.Add , , "Специфическре значение.", _
300, lvwColumnLeft '5ZNACHENIE
lvw.ColumnHeaders.Add , , "Дата записи.", _
300, lvwColumnLeft '6DATE_RECORDS
lvw.ColumnHeaders.Add , , "Пользователь.", _
300, lvwColumnLeft '7USER_NAME
lvw.ColumnHeaders.Add , , "Код.", _
300, lvwColumnLeft '8 1Key_ID
lvw.ColumnHeaders.Add , , "ID.", _
300, lvwColumnLeft '9
' Устанавливает режим просмотра как Report
lvw.View = lvwReport
|
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open " SELECT TUNING_TBL.* " _
& "From TUNING_TBL " _
& "WITH OWNERACCESS OPTION;", GLB_con, adOpenKeyset, adLockOptimistic
Me!ListView1.ListItems.CLEAR ' очистка
With rst
If .RecordCount Then
.MoveLast
.MoveFirst ' Начнем с первой записи
End If
End With
Do Until rst.EOF
Set mItem = Me!ListView1.ListItems.Add()
If NZ_BOOL_1_0(rst!Status) = 0 Then
mItem.SmallIcon = 1
Else
mItem.SmallIcon = 2
End If
mItem.Text = NZVB(rst!ID) ' Использовать
mItem.SubItems(1) = NZVB(rst!PATCH) ' Использовать
'mItem.SubItems(2) = NZVB(rst!FILESNAME) 'здесь ошибка
более одного SubItems добавить не удаётся rst.MoveNext
Loop
rst.Close
Set rst = Nothing
|
Public Function NZVB(TEST_Val As Variant) As Variant
If Not IsNull(TEST_Val) Then
If IsMissing(TEST_Val) = True Then
NZVB = ""
Else
NZVB = TEST_Val
End If
Else
NZVB = ""
End If
End Function
|
| |
| |
| |
| |
|
|
| | так раьотает 
mItem.Text = NZVB(rst!ID) ' Использовать
mItem.SubItems(2) = NZVB(rst!PATCH) ' Использовать | |
| |
| |
| |
|
|
| | Придурок дибил ...................
Правлю в одной базе, гружу другую - критин
Развёл баз сам запуталси
Простите люди добрые..............  | |
| |
| |
| |
|
|
| | Надо использовать что-то подобное
Set subitm = mItem.ListSubItems.Add(Text:=rst!FILESNAME)
Или задавайте в конструкторе | |
| |
| |
|
|
