Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Text иTab1 / 5 сообщений из 5, страница 1 из 1
09.10.2010, 18:05
    #36890965
Суддя
Суддя
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Text иTab1
Помогите пожалуйста новичку. Есть форма (Form1), таблица (Tab1) и TextBox (Text2) размещены на этой форме.
Как сделать, что-бы сумма значений столбца (summ1) таблицы (Tab1) показывалась в TextBox (Text2) при открытии формы и после изменения записей в этой таблице.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2010, 09:19
    #36891258
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Text иTab1
В Init формы можно поместить команду
Код: plaintext
CALCULATE SUM(summ1) TO ThisForm.Text2.Value IN tab1
Аналогично после изменения таблицы выполнять эту же команду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2010, 12:58
    #36891357
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Text иTab1
Dag,

а может, лучше сделать метод формы recalc_sum? В котором написать что-нибудь хотя бы наподобие такого
Код: plaintext
1.
2.
private array qwe[ 1 ]
select SUM(summ1) from tab1 TO qwe
This.Text2.Value=qwe[ 1 ]
Потому что calculate будет дёргать указатель, ну "и вообще" (с)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2010, 13:01
    #36891359
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Text иTab1
опечатался,
Код: plaintext
select SUM(summ1) from tab1 INTO ARRAY qwe
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2010, 19:26
    #36891591
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Text иTab1
tanglir,

Согласен. Почему бы и нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Text иTab1 / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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