Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Печать, Поиск и еще пару вопросов 
:(
    Опции темы
zer0mars
  Дата 9.3.2010, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.2.2010

Репутация: нет
Всего: нет



Приветствую товарищи! Нужна помочь с несколькими вопросами(FoxPro 9):

1. Печать(Цвет, упорядоченность):
Есть форма(допустим Form1), в ней есть Таблица (Grid1) и кнопка печать. Надо написать событие на кнопку, чтобы эта таблица открывалась в Excel'e и была разлинована. Так же в таблице присутствует поле в котором могут быть отрицательные числа, их надо выделить другим цветом (чтобы они отображались как в Grid1 так и в Excel'e(при печати)).
В Grid1 есть поле(NOM) которое надо упорядочить.

2.Поиск:
В той же самой Form1 присутствует Text box, и допустип кнопка "Поиск". Надо чтобы при вводе в Text1 четырех значного целого числа выполнялся точный поиск по определенному полю(INV) в другой свободной таблице и выводил все найденный данные в Grid1.(очищая при этом ее перед поиском)

P.S.: Я дилетант в этом деле, и только учусь, всех тонкостей не знаю :'(. Зарание Благодарю!



Это сообщение отредактировал(а) zer0mars - 9.3.2010, 19:46
PM MAIL   Вверх
Данкинг
Дата 9.3.2010, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130



Так. Одна тема - один вопрос. Отвечу по поводу экспорт и разлиновки. Если число записей в таблице до 13000, то можно выполнить экспорт обычной командой:
Код

EXPORT TO BASE XLS FIELDS pole1, pole2

Далее создаём Excel-объект и разлиновываем нашу таблицу:
Код

ex=createobject('excel.application')
ex.visible=.f.
Ex.DisplayAlerts=.f.
ex.Workbooks.open ('base.xls')

for y1=1 to ex.ActiveSheet.UsedRange.rows.Count 
 _screen.Caption='Корректировка: '+ALLTRIM(STR(y1))
  for y2=1 to ex.ActiveSheet.UsedRange.columns.Count 
    ex.activeworkbook.activesheet.Cells[y1,y2].Borders.lineStyle= 1
   endfor
 endfor

Ex.ActiveWorkbook.SaveAs('base.xls')
ex.application.quit


Это сообщение отредактировал(а) Данкинг - 9.3.2010, 20:01


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
zer0mars
Дата 9.3.2010, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.2.2010

Репутация: нет
Всего: нет



Спасибо и на этом.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!



Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »


 




[ Время генерации скрипта: 0.0455 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.