VBNet - Форум - Кодировка в отчете

Вопрос: Кодировка в отчете Добавлено: 14.08.08 10:35

Автор вопроса: pasha | ICQ: 209913513

Всем доброго времени суток!
Есть вот такой код:

Public Function GenerateHTML(ByVal dgv As DataGridView) As String
        Dim xml As New System.Text.StringBuilder()
        xml.Append("<HTML>")
        xml.Append("<HEAD></HEAD>")
        xml.Append("<BODY>")
        xml.Append("<table width='100%' border='0'>")
        xml.Append("<tr>")
        xml.Append("<td>").Append("ID").Append("</td>")
        xml.Append("<td>").Append("Phone").Append("</td>")
        xml.Append("<td>").Append("Abonent").Append("</td>")
        xml.Append("<td>").Append("Address").Append("</td>")
        xml.Append("<td>").Append("NHome").Append("</td>")
        xml.Append("<td>").Append("NKvatr").Append("</td>")
        xml.Append("</tr>")
        For Each dr As DataGridViewRow In dgv.Rows
            xml.Append("<tr>")
            For Each cell As DataGridViewCell In dr.Cells
                xml.Append("<td>").Append(cell.Value).Append("</td>")
            Next
            xml.Append("</tr>")
        Next
        xml.Append("</table>")
        xml.Append("</BODY>")
        xml.Append("</HTML>")
        Return xml.toString
    End Function

но при записи этой сгенерированной строки в файл HTML она получается в непонятной кодировке. Каким образом мне указать (или вставить в хтмл строку) чтобы кодировка была стандартная?

Заранее спасибо за ответ!
Ответить

Ответы Всего ответов: 15

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #1	Добавлено: 14.08.08 12:02
	Public Function GenerateHTML(ByVal dgv As DataGridView) As String Dim xml As New System.Text.StringBuilder() xml.Append("<HTML>" xml.Append("<HEAD><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"></HEAD>" xml.Append("<BODY>" xml.Append("<table width='100%' border='0'>" xml.Append("<tr>" xml.Append("<td>".Append("ID".Append("</td>" xml.Append("<td>".Append("Phone".Append("</td>" xml.Append("<td>".Append("Abonent".Append("</td>" xml.Append("<td>".Append("Address".Append("</td>" xml.Append("<td>".Append("NHome".Append("</td>" xml.Append("<td>".Append("NKvatr".Append("</td>" xml.Append("</tr>" For Each dr As DataGridViewRow In dgv.Rows xml.Append("<tr>" For Each cell As DataGridViewCell In dr.Cells xml.Append("<td>".Append(cell.Value).Append("</td>" Next xml.Append("</tr>" Next xml.Append("</table>" xml.Append("</BODY>" xml.Append("</HTML>" Return xml.toString End Function Ответить

Номер ответа: 2 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #2	Добавлено: 14.08.08 13:45
	большое спасибо Ответить

Номер ответа: 3 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #3	Добавлено: 14.08.08 13:57
	только тогда малюсенькая поправочка. в тэге <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> надо заменить ковычки на апострофы, браузеру по-барабану, а вот VB ругается Ответить

Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #4	Добавлено: 14.08.08 14:06
	Ну да. Ответить

Номер ответа: 5 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #5	Добавлено: 14.08.08 15:15
	А у меня вот еще вопрос. Вот есть DataGrid. Как мне поменять заголовки колонок? А то он делает заголовки как в БД, а там они на английском, а мне надо чтобы имена колонок были нормальные. Как это можно сделать? редко работаю с DataGrid'ом. Ответить

Номер ответа: 6 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #6	Добавлено: 14.08.08 15:15
	А у меня вот еще вопрос. Вот есть DataGrid. Как мне поменять заголовки колонок? А то он делает заголовки как в БД, а там они на английском, а мне надо чтобы имена колонок были нормальные. Как это можно сделать? редко работаю с DataGrid'ом. Ответить

Номер ответа: 7 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #7	Добавлено: 15.08.08 17:34
	В свойствах колонки смотри. Что-то типа headerText Ответить

Номер ответа: 8 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #8	Добавлено: 18.08.08 14:00
	а вот как до них добраться то до свойств колонок? их там попросту нет, или я что-то недопонимаю Ответить

Номер ответа: 9 Автор ответа: __Pavel__ Вопросов: 29 Ответов: 284	Web-сайт: ммм.сайта.НЕТ Профиль \| \| #9	Добавлено: 18.08.08 15:37
	Me.DataGridView1.Columns(0).xxx Ответить

Номер ответа: 10 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #10	Добавлено: 18.08.08 15:47
	Видимо я не так объяснил. С DataGridView то все интуитивно понятно, а вот мне нужен именно контрол DataGrid. Вот как быть с ним? Ответить

Номер ответа: 11 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #11	Добавлено: 18.08.08 17:49
	DataGrid1.Columns(0).Caption = "..." Ответить

Номер ответа: 12 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #12	Добавлено: 21.08.08 16:26
	'columns' is not a member of 'System.Windows.Forms.Datagrid' Ответить

Номер ответа: 13 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #13	Добавлено: 21.08.08 20:04
	DataGrid.TableStyles(0).GridColumnStyles(0).HeaderText = "блаблабла" Ответить

Номер ответа: 14 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #14	Добавлено: 21.08.08 21:17
	Вот это да... Кажись я форумом ошибся Ответить

Номер ответа: 15 Автор ответа: pasha ICQ: 209913513 Вопросов: 10 Ответов: 45	Профиль \| \| #15	Добавлено: 21.08.08 23:42
	делаю так: dgPhone.TableStyles("tblPhone".GridColumnStyles("ID".HeaderText = "Код" ну он и выдает "Object reference not set to an instance of an object." Ответить

Страница: 1 |