Entiendo que utilizas el control WebBrowser para mostrar la página web, ¿verdad?
- Define sólo la estructura de la tabla, por ejemplo:
<body>
<table>
<thead>
<tr>
<td>Maltas</td>
<td>Peso</td>
</tr>
</thead>
<tbody id="idTBody">
</tbody>
<tfoot>
<tr>
<td>TOTAL</td>
<td id="totalPeso">0</td>
</tr>
</tfoot>
</table>
</body>
- En el controlador del evento DocumentCompleted, del control WebBrowser, agregas las filas según las filas del control DataGridView:
Private Sub WebBrowser1_DocumentCompleted(sender As Object, ...
If (Not (CType(sender, WebBrowser).Document Is Nothing)) Then
With CType(sender, WebBrowser).Document
Dim TableBody = .GetElementById("idTBody")
Dim TotalPeso As Decimal = 0
For Each Row As DataGridViewRow In DataGridView1.Rows
If Row.IsNewRow Then Exit For
Dim TableRow = .CreateElement("TR")
TableBody.AppendChild(TableRow)
Dim TableCell As HtmlElement = .CreateElement("TD")
TableCell.InnerText = Convert.ToString(Row.Cells("Maltas").Value)
TableRow.AppendChild(TableCell)
Dim Peso = Convert.ToDecimal(Row.Cells("Peso").Value)
TableCell = .CreateElement("TD")
TableCell.InnerText = Peso.ToString("N2")
TableRow.AppendChild(TableCell)
TotalPeso += Peso
Next
.GetElementById("totalPeso").InnerHtml = TotalPeso.ToString("N2")
End With
End If
End Sub