| Вопрос: вывод в RTF содержимое datagridview | Добавлено: 16.04.08 02:24 |
Автор вопроса:  Максим | Web-сайт: basicpic.moy.su | ICQ: 410-055-616 |
| Подскажите, пожалуйста, как можно программно вывести в формат RTF содержимое акцессовской таблицы, которая на форме выводится в датагридвью? Нигде не могу найти. |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Максим ICQ: 410-055-616 Вопросов: 4 Ответов: 4 |
Web-сайт: Профиль | | #1 | Добавлено: 16.04.08 16:21 |
| ну неужели никто не знает? | ||
|
Номер ответа: 2 Автор ответа: МаксимICQ: 410-055-616 Вопросов: 4 Ответов: 4 |
Web-сайт: Профиль | | #2 | Добавлено: 02.05.08 16:36 |
| спасибо... | ||
|
Номер ответа: 3 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #3 | Добавлено: 02.05.08 17:19 |
|
С datagridview никогда не работал поэтому даже не заглядывал в твой вопрос, и щас чисто машинально.
А не проще тебе программно копировать свою табличку в Word и заставить его сохранить это дело в RTF? |
||
|
Номер ответа: 4 Автор ответа: МаксимICQ: 410-055-616 Вопросов: 4 Ответов: 4 |
Web-сайт: Профиль | | #4 | Добавлено: 03.05.08 16:15 |
| А как это можно сделать? Я программно копировать не умею пока. Была мысль макросом в акцессе преобразовывать отчет в RTF, но, чтобы создать отчет, нужно событие,во-вторых мучался-мучался - не получается.Я работаю из VB.NET 2008, поэтому не знаю как, только учусь. Киньте ссылкой где подсмотреть можно. У меня задача - вывод в РТФ содержимое таблицы в удобочитаемом виде. | ||
|
Номер ответа: 5 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #5 | Добавлено: 03.05.08 17:00 |
|
Лень на .Net переходить.
Да и копировать ненужно если макросы конструктора приемлемы, создай один раз и используй. Макрокоманда ОткрытьТаблицу - режим (Таблица) ВыполнитьКоманду - ВыводВRTF сохранит твою таблицу в МоиДоки с именем ИмяТаблици.rtf |
||
|
Номер ответа: 6 Автор ответа: МаксимICQ: 410-055-616 Вопросов: 4 Ответов: 4 |
Web-сайт: Профиль | | #6 | Добавлено: 03.05.08 18:14 |
| Ладно, с этим понятно, а как в другое место переместить этот файл? И как этот макрос автоматом запускать после нажатия кнопки из формы моей программы? | ||
|
Номер ответа: 7 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #7 | Добавлено: 03.05.08 18:30 |
|
Файл переместить дело не мудреное, но как это в НЭТ делается понятия не имею.
Программно такие макросы я ещё не вызывал, обычно назначал на панель. Попробуй в аксэсе сохранить макрос как модуль. |
||
|
Номер ответа: 8 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #8 | Добавлено: 03.05.08 23:07 |
|
Лень на .Net переходить
лень с запорожца слазить, чтоб на мерс пересесть. 
в ртф переводить гемморой, переводи лучше в ХТМЛ. если очень хочется в ртфб ищи в гугле спецификацию ртф. Желание его юзать сразу отпадет .
вот пример для HTML Private Sub DisplayCustomersTable() ' Initialize the database connection. Dim CustomerData As New DataSet() Dim CustomerTable As DataTable Try Dim DBConn As New SqlConnection("  ata Source=localhost;Integrated Security=SSPI;Initial Catalog=Northwind;"
Dim DBQuery As New SqlDataAdapter("SELECT * FROM CUSTOMERS", DBConn) BQuery.Fill(CustomerData)
Catch dbEX As DataException End Try CustomerTable = CustomerData.Tables("Customers"
If (Not (WebBrowser1.Document Is Nothing)) Then With WebBrowser1.Document Dim TableElem As HtmlElement = .CreateElement("TABLE"
.Body.AppendChild(TableElem) Dim TableRow As HtmlElement ' Create the table header. Dim TableHeader As HtmlElement = .CreateElement("THEAD"
TableElem.AppendChild(TableHeader) TableRow = .CreateElement("TR"
TableHeader.AppendChild(TableRow) Dim HeaderElem As HtmlElement For Each Col As DataColumn In CustomerTable.Columns HeaderElem = .CreateElement("TH"
HeaderElem.InnerText = Col.ColumnName TableRow.AppendChild(HeaderElem) Next ' Create table rows. Dim TableBody As HtmlElement = .CreateElement("TBODY"
TableElem.AppendChild(TableBody) For Each Row As DataRow In CustomerTable.Rows TableRow = .CreateElement("TR"
TableBody.AppendChild(TableRow) For Each Col As DataColumn In CustomerTable.Columns Dim Item As Object = Row(Col) Dim TableCell As HtmlElement = .CreateElement("TD"
If Not (TypeOf (Item) Is DBNull) Then TableCell.InnerText = CStr(Item) End If TableRow.AppendChild(TableCell) Next Next End With End If End Sub |
||
|
Номер ответа: 9 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #9 | Добавлено: 03.05.08 23:28 |
|
лень с запорожца слазить, чтоб на мерс пересесть.
эге, лениво мне, чтоб тебе всю жизнь с этого "мерса" не слезать
|
||
|
Номер ответа: 10 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #10 | Добавлено: 03.05.08 23:43 |
|
эге, лениво мне, чтоб тебе всю жизнь с этого "мерса" не слезать
вот консерватор, и на хр наверно не перешел еше, всё на 98-ом сидишь? мне так лениво ВБ6 учить, я на нем никогда не программил, мой первый васикоподобный язык - ВБНЕТ, и то, начальство настояло. Так бы программил бы до сих пор на дельфях.(ничего не имею против ВБНЕТ) |
||
|
Номер ответа: 11 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #11 | Добавлено: 03.05.08 23:58 |
|
Так бы программил бы до сих пор на дельфях. у меня особый респект к паскалистам
на домашнем три оси 98, Хэрэ и мандриву мучаю
и на работе вредный англицкий 2k сервер |
||
Страница: 1 |