السلام عليكم
اخواني انا لا اعرف الـ HTML وياريت بس تعديل بسيط على الكود
اريد ان اجعل الكلام اللي بالجدول بالوسط
اتمنى الافادة
- Public Sub ExportHTML(ByVal Table As DataTable, ByVal Location As String)
- Using Writer As New System.IO.StreamWriter(Location)
- Writer.WriteLine("<HTML>")
- Writer.WriteLine(" <HEAD>")
- Writer.WriteLine(" <meta http-equiv='Content-Type' content='text/html charset=utf
-8'>") - Writer.WriteLine(" </HEAD>")
- Writer.WriteLine(" <BODY>")
- Writer.WriteLine("<TABLE border='1'>")
- Writer.WriteLine(" <TR>")
- For Each Column As DataColumn In Table.Columns
- Writer.WriteLine(" <TD width=150>" & Column.ColumnName & "</td>")
- Next
- Writer.WriteLine(" </TR>")
- For Each Row As DataRow In Table.Rows
- Writer.WriteLine(" <TR>")
- For Each Column As DataColumn In Table.Columns
- Writer.WriteLine(" <TD width=150>" & Row.Item(Column).ToString & "</TD>")
- Next
- Writer.WriteLine(" </TR>")
- Next
- Writer.WriteLine("</TABLE>")
- Writer.WriteLine(" </BODY>")
- Writer.WriteLine("</HTML>")
- End Using
- End Sub