ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сумма по столбцу списка
15 сообщений из 15, страница 1 из 1
Сумма по столбцу списка
    #32755646
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Есть форма1
В ней список1 и поле1
9 столбец - сумма заказа
Как в поле1 вывести сумму по 9 столбцу?

AlexRom
...
Рейтинг: 0 / 0
26.10.2004, 18:19:59
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755693
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
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
...
Рейтинг: 0 / 0
26.10.2004, 18:33:44
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755697
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
Точнее так
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
...
Рейтинг: 0 / 0
26.10.2004, 18:34:50
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755722
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Увы, ругается на i в
For i = 0 To Me.myresult.ListCount

AlexRom
...
Рейтинг: 0 / 0
26.10.2004, 18:42:38
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755726
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
А что ругается, может надо Dim i, если Option explicit стоит??
...
Рейтинг: 0 / 0
26.10.2004, 18:44:27
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755729
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Option Explicit стоит
а Dim не помогает

AlexRom
...
Рейтинг: 0 / 0
26.10.2004, 18:46:41
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755755
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Помогите братцы
Очень нужно

AlexRom
...
Рейтинг: 0 / 0
26.10.2004, 18:59:03
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755759
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
А что на i говорит?
Listcount-1 попробуй поставь
...
Рейтинг: 0 / 0
26.10.2004, 19:01:02
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755764
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Говорит: Variable not defined
Listcount-1 тоже ни к чему не привел

AlexRom
...
Рейтинг: 0 / 0
26.10.2004, 19:06:27
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755766
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
Ну так он тебе и говорит, что переменная не описана - ...
...
Рейтинг: 0 / 0
26.10.2004, 19:07:18
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755768
неплохо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
неплохо
Гость
For i = 0 To Me.list1.ListCount -1
еще неплохо спросить .ColumnHeads
...
Рейтинг: 0 / 0
26.10.2004, 19:08:02
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755775
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Где тут ошибка?

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
...
Рейтинг: 0 / 0
26.10.2004, 19:14:27
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755777
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
Да, если .Columnheads =true то тогда i надо с 1 начинать
...
Рейтинг: 0 / 0
26.10.2004, 19:15:27
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755786
Mjay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mjay
Гость
Должно работать...вроде все чисто
...
Рейтинг: 0 / 0
26.10.2004, 19:19:16
| Ответить | Цитировать | Написать  
Сумма по столбцу списка
    #32755791
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexRom
Гость
Спасибо, всё работает

Код: plaintext
1.
2.
3.
4.
5.
6.
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
...
Рейтинг: 0 / 0
26.10.2004, 19:24:17
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сумма по столбцу списка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32755759&tid=1670791]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 203ms
total:  337ms
созд. / загр.: 337ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]