Вопрос № 73657: Вопрос достаточно прост.
У меня есть стока (например в переменной Sgh), мне нужно в этой строке заменить символ (все встречающиеся) (например ",") на другой (например ";"). Заранее спасибо.
...Вопрос № 73752: Здравствуйте.
Может мне кто-нибудь подсказать вариант печати на принтер из MsFlexGrid( или контрола из DATA)?????
Предложенный вариант(код или activeX без разницы) должен нормально печатать многостраничный отчет, сам формировать по ширине лис...
Вопрос № 73.657
Вопрос достаточно прост.
У меня есть стока (например в переменной Sgh), мне нужно в этой строке заменить символ (все встречающиеся) (например ",") на другой (например ";"). Заранее спасибо.
Отправлен: 01.02.2007, 17:36
Вопрос задал: Pithon (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Базанов Иван Александрович
Здравствуйте, Pithon!
Sgh = Replace(Sgh, ",", ";")
--------- Программист ошибается дважды: первый раз при рождении, второй при выборе профессии
Ответ отправил: Базанов Иван Александрович (статус: 3-ий класс)
Ответ отправлен: 01.02.2007, 17:47 Оценка за ответ: 5
Вопрос № 73.752
Здравствуйте.
Может мне кто-нибудь подсказать вариант печати на принтер из MsFlexGrid( или контрола из DATA)?????
Предложенный вариант(код или activeX без разницы) должен нормально печатать многостраничный отчет, сам формировать по ширине листа колонки при любой ориентации листа, вне зависимости от ширины колонок грида и желательно бесплатный;-) Вопрос довольно актуален, но нормальных примеров я так и не нашел. Список чего не предлагать, с этим я уже знаком:
Crystal Reports, кирпичики(Модифицированная и подправленная процедура печати отчета из MSFlexGrid), PrintFlexGrid.zip, SCML MSFLEXGRID, процедура PrintFlexGrid(которая с функцией BoundedText), метод Printer.PaintPicture MsFlexGrid.Picture.
Спасибо.
Отправлен: 02.02.2007, 12:00
Вопрос задал: PsySex (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, PsySex!
Для заполнения Grid я использую примерно следующую конструкцию:
Set rs = db.OpenRecordset("Select * from Table")
Set Data.Recordset = rs
дальше при необходимости
rs.Requery
Data.UpdateControls
DBGrid.Refresh
Для сбора всех данных отображаемых в Grid, можно считать их из рекордсета Data,
для выборки конкретной записи по строке Grid, используются данные получаемые событиями Mouse или Key (KeyPress,Click....) с помощью следующего кода:
With DBGrid
iColumn = .Col 'индекс выбраной колонки
iRow = .RowSel 'индекс выбранной строки
sText = .Text 'текст выбранной ячейки
End With
Далее собранные данные я передаю в заготовленый шаблон Excel в котором и задается форматирование.
Это и есть мой "вариант печати"
(Объяснять как осуществляется поиск нужной записи в RecordSet, считывание из нее данных и передача данных в документ для печати, я не буду Вы ведь хотите подучить готовый продукт, а у меня его нет)
Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 3-ий класс)
Ответ отправлен: 02.02.2007, 19:12 Оценка за ответ: 4 Комментарий оценки: Буду иметь в ввиду.
