Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Есть форма1
В ней список1 и поле1
9 столбец - сумма заказа
Как в поле1 вывести сумму по 9 столбцу?

AlexRom
26 окт 04, 18:19    [1062765]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
Private Sub Кнопка6_Click()
Dim Summ
Summ = 0
For i = 0 To Me.list1.ListCount - 1
Summ = Nz(Me.list1.Column(1, i), 0) + Summ
Next i

Me.Поле1.Value = Summ
End Sub
26 окт 04, 18:33    [1062824]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
Точнее так
Private Sub Кнопка6_Click()
Dim Summ
Summ = 0
For i = 0 To Me.list1.ListCount
Summ = Nz(Me.list1.Column(8, i), 0) + Summ
Next i

Me.Поле1.Value = Summ
End Sub
26 окт 04, 18:34    [1062828]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Увы, ругается на i в
For i = 0 To Me.myresult.ListCount

AlexRom
26 окт 04, 18:42    [1062861]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
А что ругается, может надо Dim i, если Option explicit стоит??
26 окт 04, 18:44    [1062866]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Option Explicit стоит
а Dim не помогает

AlexRom
26 окт 04, 18:46    [1062870]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Помогите братцы
Очень нужно

AlexRom
26 окт 04, 18:59    [1062902]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
А что на i говорит?
Listcount-1 попробуй поставь
26 окт 04, 19:01    [1062908]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Говорит: Variable not defined
Listcount-1 тоже ни к чему не привел

AlexRom
26 окт 04, 19:06    [1062915]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
Ну так он тебе и говорит, что переменная не описана - ...
26 окт 04, 19:07    [1062918]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
неплохо
Guest
For i = 0 To Me.list1.ListCount -1
еще неплохо спросить .ColumnHeads
26 окт 04, 19:08    [1062920]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Где тут ошибка?

Dim i As Long, Summ As Currency
Summ = 0
For i = 0 To Me.myresult.ListCount - 1
Summ = Nz(Me.myresult.Column(8, i), 0) + Summ
Next i

Me.сумма.Value = Summ

AlexRom
26 окт 04, 19:14    [1062928]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
Да, если .Columnheads =true то тогда i надо с 1 начинать
26 окт 04, 19:15    [1062931]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
Mjay
Member

Откуда: Москва
Сообщений: 29
Должно работать...вроде все чисто
26 окт 04, 19:19    [1062939]     Ответить | Цитировать Сообщить модератору
 Re: Сумма по столбцу списка  [new]
AlexRom
Member

Откуда: СПб
Сообщений: 108
Спасибо, всё работает

Dim i As Long, Summ As Currency
Summ = 0
For i = 1 To Me.myresult.ListCount - 1
Summ = Nz(Me.myresult.Column(8, i), 0) + Summ
Next i

Me.сумма.Value = Summ

AlexRom
26 окт 04, 19:24    [1062944]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить