Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сумма по столбцу списка / 15 сообщений из 15, страница 1 из 1
26.10.2004, 18:19:59
    #32755646
AlexRom
AlexRom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма по столбцу списка
Есть форма1
В ней список1 и поле1
9 столбец - сумма заказа
Как в поле1 вывести сумму по 9 столбцу?

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

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

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

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

AlexRom
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2004, 19:07:18
    #32755766
Mjay
Mjay
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма по столбцу списка
Ну так он тебе и говорит, что переменная не описана - ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2004, 19:08:02
    #32755768
неплохо
неплохо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма по столбцу списка
For i = 0 To Me.list1.ListCount -1
еще неплохо спросить .ColumnHeads
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2004, 19:14:27
    #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:15:27
    #32755777
Mjay
Mjay
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма по столбцу списка
Да, если .Columnheads =true то тогда i надо с 1 начинать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2004, 19:19:16
    #32755786
Mjay
Mjay
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма по столбцу списка
Должно работать...вроде все чисто
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2004, 19:24:17
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сумма по столбцу списка / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 304ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1670791]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 190ms
total:  304ms
x
x
Закрыть


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