powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / messagebox()
6 сообщений из 6, страница 1 из 1
messagebox()
    #32952464
Tone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня вопрос. Есть таблица с несколькими записями, как отобразить в messagemox()?
...
Рейтинг: 0 / 0
messagebox()
    #32952473
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообще-то в messagebox() не отображают записи из таблицы. Он не для этого создан. В нем это неудобно даже смотреть.
MESSAGEBOX(eMessageText [, nDialogBoxType ][, cTitleBarText][, nTimeout])
Но в принципе, создать строку: eMessageText в которую записать хоть несколько записей и разделить их CHR(13).
...
Рейтинг: 0 / 0
messagebox()
    #32952474
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно примерно так:

LOCAL lcMessage
lcMessage = ""
SELECT Table1
SCAN
lcMessage = lcMessage + Table1.Field1 + CHR(13)
ENDSCAN

MESSAGEBOX(lcMessage)
...
Рейтинг: 0 / 0
messagebox()
    #32952481
Tone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спосибо, какраз то шо надо.
...
Рейтинг: 0 / 0
messagebox()
    #32952483
Pavel_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всё боится времени

Попробуй через Application.DataToClip
-------------------------------------------

SELECT PADR(ALLTRIM(artikl),30,'.') as наименование ,;
INT(COUNT(qty)) as количество ;
FROM ZDVSE WHERE AT('Стекло',artikl)>0 GROUP BY artikl INTO CURSOR itog
SELECT('itogl')
Application.DataToClip('itog',,3)
=MESSAGEbox(_cliptext,0,'Результаты')
---------------------------------------------------

.... и только время боится пирамид!
...
Рейтинг: 0 / 0
messagebox()
    #32952492
Ilhom_uz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pavel_t Всё боится времени

Попробуй через Application.DataToClip
-------------------------------------------

SELECT PADR(ALLTRIM(artikl),30,'.') as наименование ,;
INT(COUNT(qty)) as количество ;
FROM ZDVSE WHERE AT('Стекло',artikl)>0 GROUP BY artikl INTO CURSOR itog
SELECT('itogl')
Application.DataToClip('itog',,3)
=MESSAGEbox(_cliptext,0,'Результаты')
---------------------------------------------------

.... и только время боится пирамид!
А еще пару оборотов нельзя :-)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / messagebox()
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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