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

ник: ДрЮня
кидаем на форму лист-вью (lv_Order)
на событие формы Load пишем код

Private Sub Form_Load()         lv_Order.ListItems.Clear         lv_Order.ColumnHeaders.Add , , "OrderID", 0         lv_Order.ColumnHeaders.Add , , "№№", 1000         lv_Order.ColumnHeaders.Add , , "дата", 1000         lv_Order.ColumnHeaders.Add , , "время", 1000         lv_Order.ColumnHeaders.Add , , "статус", 2000         lv_Order.ColumnHeaders.Add , , "источник", 1700         lv_Order.View = lvwReport     Call get_Order End Sub

функция get_Order() формирует рекордсет и заполняет этот лист-вью

Private Sub get_Order()     On Error GoTo L_Err     ...         lv_Order.ListItems.Clear         rs.Open sSQL, cnn, adOpenStatic     If rs.EOF Then GoTo L_Exit     If Not rs.BOF Then rs.MoveFirst     Do While Not rs.EOF         lv_Order.ListItems.Add 1, , rs("OrderID")         lv_Order.ListItems(1).ListSubItems.Add 1, , IIf(IsNull(rs("OrderNumber")), "", rs("OrderNumber"))         lv_Order.ListItems(1).ListSubItems.Add 2, , IIf(IsNull(rs("OrderDate")), "", Format(rs("OrderDate"), "dd.mm.yyyy"))         lv_Order.ListItems(1).ListSubItems.Add 3, , IIf(IsNull(rs("OrderTime")), "", Format(rs("OrderTime"), "hh:mm:ss"))         lv_Order.ListItems(1).ListSubItems.Add 4, , sStatus         lv_Order.ListItems(1).ListSubItems.Add 5, , IIf(IsNull(rs("tblShop.Name")), "", rs("tblShop.Name"))                  If rs("OrderStatusID") = -1755166719 Then             lv_Order.ListItems(1).ListSubItems(4).ForeColor = vbRed             lv_Order.ListItems(1).ListSubItems(4).Bold = True         Else             lv_Order.ListItems(1).ListSubItems(4).ForeColor = vbBlue         End If         rs.MoveNext     Loop      L_Exit: Set rs = Nothing: Exit Sub L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, "get_Order": GoTo L_Exit End Sub