Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час

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