merlin_vista
چهارشنبه 26 تیر 1387, 13:47 عصر
من فكر كردم دوستمون آقاي mehdib (http://barnamenevis.org/forum/member.php?u=36472) ميخواهد فايل Word بسازه بهش گفتم يه نگاهي به تاپيك گريدويو بندازه . همين ...
همان قسمتي كه خروجي Word و Exel ميگيره :
Dim strFileToExport As String = String.Empty
Dim strContentType As String = String.Empty
Dim obj_StrBuilder As New StringBuilder
Select Case ExportType
Case T_ExportType.ExportToExcel
obj_StrBuilder.Append("<html><head><meta http-equiv=Content-Type content=""text/html; charset=utf-8""><style> .text { mso-number-format:\@; } .trFormat{color:Black;background-color:#DEDFDE;} </style></head><table dir=""rtl"" cellspacing=""1"" cellpadding=""3"" border=""0"" style=""background-color:White;border-color:White;border-width:2px;border-style:Ridge;font-family:Tahoma;font-size:11px;width:100%;""><tbody>")
obj_StrBuilder.Append("<tr style=""color:#E7E7FF;background-color:#4A3C8C;font-weight:bold;"">")
obj_StrBuilder.Append("<th>نام اداره</th><th>نام قطعه</th><th>مدل قطعه</th><th>شماره تقاضا</th></tr>")
For rowCounter As Int32 = 0 To numRows - 1
obj_StrBuilder.Append("<tr class=""trFormat""><td>" & DT.Rows(rowCounter)(1).ToString() & "</td><td>" & DT.Rows(rowCounter)(2).ToString() & "</td><td align=""center"">" & DT.Rows(rowCounter)(3).ToString() & "</td><td align=""center"">" & DT.Rows(rowCounter)(4).ToString() & "</tr>")
Next
obj_StrBuilder.Append("</tbody></table></html>")
obj_StrBuilder.Replace("ی", "ی")
strFileToExport = "GridView_ExcelFormat.xls"
strContentType = "application/vnd.xls;"
Case T_ExportType.ExportToWord
obj_StrBuilder.Append("<html><head><meta http-equiv=Content-Type content=""text/html; charset=utf-8""><style> .trFormat{color:Black;background-color:#DEDFDE;} </style></head><table dir=""rtl"" cellspacing=""1"" cellpadding=""3"" border=""0"" style=""background-color:White;border-color:White;border-width:2px;border-style:Ridge;font-family:Tahoma;font-size:11px;width:100%;""><tbody>")
obj_StrBuilder.Append("<tr style=""color:#E7E7FF;background-color:#4A3C8C;font-weight:bold;"">")
obj_StrBuilder.Append("<th>نام اداره</th><th>نام قطعه</th><th>مدل قطعه</th><th>شماره تقاضا</th></tr>")
For rowCounter As Int32 = 0 To numRows - 1
obj_StrBuilder.Append("<tr class=""trFormat""><td>" & DT.Rows(rowCounter)(1).ToString() & "</td><td>" & DT.Rows(rowCounter)(2).ToString() & "</td><td align=""center"">" & DT.Rows(rowCounter)(3).ToString() & "</td><td align=""center"">" & DT.Rows(rowCounter)(4).ToString() & "</tr>")
Next
obj_StrBuilder.Append("</tbody></table></html>")
obj_StrBuilder.Replace("ی", "ی")
strFileToExport = "GridView_WordFormat.doc"
strContentType = "application/vnd.word;"
Case T_ExportType.ExportToText
For rowCounter As Int32 = 0 To numRows - 1
obj_StrBuilder.AppendLine(DT.Rows(rowCounter)(1).T oString() & " | " & DT.Rows(rowCounter)(2).ToString() & " | " & DT.Rows(rowCounter)(3).ToString() & " | " & DT.Rows(rowCounter)(4).ToString())
obj_StrBuilder.AppendLine("---------------------------------------------------")
Next
strFileToExport = "GridView_TextFormat.txt"
strContentType = "application/vnd.text;"
End Select