Public Function GenerateHtmlReport(ByVal ResultDataset As System.Data.DataSet) As String Implements IValidation.GenerateHtmlReport
Dim _StrBuil As New StringBuilder()
Dim clsHtmlBuilder As New HtmlBuilder()
Try
_StrBuil.AppendLine(Space(2) & clsHtmlBuilder.AddHr())
_StrBuil.AppendLine(Space(3) & clsHtmlBuilder.TextBig(ResultDataset.DataSetName))
_StrBuil.AppendLine(Space(5) & clsHtmlBuilder.AddLineBreak)
For Each _Tbl As DataTable In ResultDataset.Tables
If _Tbl Is Nothing OrElse _Tbl.Rows.Count = 0 Then Continue For
_StrBuil.AppendLine(Space(8) & clsHtmlBuilder.StartTable())
'set Table Header
'set Table Name
_StrBuil.AppendLine(Space(15) & clsHtmlBuilder.StartH4())
_StrBuil.AppendLine(Space(20) & _Tbl.TableName)
_StrBuil.AppendLine(Space(15) & clsHtmlBuilder.EndH4())
_StrBuil.AppendLine(Space(25) & clsHtmlBuilder.StartTableRow())
'set Column Name
For Each _col As DataColumn In _Tbl.Columns
_StrBuil.AppendLine(Space(35) & clsHtmlBuilder.StartTableHeader())
_StrBuil.AppendLine(Space(45) & _col.ColumnName)
_StrBuil.AppendLine(Space(35) & clsHtmlBuilder.EndTableHeader())
Next
_StrBuil.AppendLine(Space(25) & clsHtmlBuilder.EndTableRow())
'set Table Rows
For Each _dr As DataRow In _Tbl.Rows
_StrBuil.AppendLine(Space(25) & clsHtmlBuilder.StartTableRow())
For Each _col As DataColumn In _Tbl.Columns
If (Space(45) & _col.ColumnName = "Result") Then
_StrBuil.AppendLine(Space(35) & clsHtmlBuilder.StartTableCell())
Else
_StrBuil.AppendLine(Space(35) & clsHtmlBuilder.StartTableCell())
End If
_StrBuil.AppendLine(Space(45) & _dr(_col.ColumnName).ToString())
_StrBuil.AppendLine(Space(35) & clsHtmlBuilder.EndTableCell())
Next
_StrBuil.AppendLine(Space(25) & clsHtmlBuilder.EndTableRow())
Next
_StrBuil.AppendLine(Space(8) & clsHtmlBuilder.EndTable())
Next
_StrBuil.AppendLine(Space(5) & clsHtmlBuilder.AddLineBreak)
_StrBuil.AppendLine(Space(2) & clsHtmlBuilder.AddHr())
Catch ex As Exception
clsCommon.writeErrorLog("Error in Report Generation", "RuleSet2", "GenerateHtmlReport")
Throw ex
End Try
Return _StrBuil.ToString()
End Function
End Class
源代码:
<td nowrap = "nowrap">
4F0B52DC0001
</td>
<td nowrap = "nowrap">
C006411
</td>
<td nowrap = "nowrap">
Christiansen
</td>
<td nowrap = "nowrap">
Cathy
</td>
<td nowrap = "nowrap">
19570406
</td>
<td nowrap = "nowrap">
</td>