Html 将行添加到webbrowser对象中的现有表

我已加载一个网站，该网站在我的webbrowser对象中包含一个表元素。表的id是“MyTable2”。我需要能够添加新行。每一行都是这样的：

<tr class="ms-rteTableOddRow-default" style="text-align:center">
     <th class="ms-rteTableFirstCol-default"></th>
     <td class="ms-rteTableOddCol-default"></td>
     <td class="ms-rteTableEvenCol-default">​</td>
     <td class="ms-rteTableOddCol-default">​</td>
     <td class="ms-rteTableEvenCol-default">​</td>
     <td class="ms-rteTableOddCol-default"></td>
     <td class="ms-rteTableEvenCol-default">​</td>
</tr>

---

我认为可以使用element.AppendChild（行）添加它，但我不知道如何从我的行创建htmlelement，以及如何在我的webbrowser中显示新行？

我设法创建了一个解决方案：

Private Sub AddRowToTable2()
    Dim element As HtmlElement = WebBrowser1.Document.GetElementById("table2")
    Dim mTBody As HtmlElement = element.FirstChild
    Dim mTR As HtmlElement = WebBrowser1.Document.CreateElement("TR")
    Dim mTh As HtmlElement = WebBrowser1.Document.CreateElement("TH")
    Dim mTDOdd1 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven1 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDOdd2 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven2 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDOdd3 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven3 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    mTR.Style = "TEXT-ALIGN: center"
    'controle of het een even of oneven rij moet zijn
    If mTBody.Children.Count Mod 2 = 0 Then
        mTR.SetAttribute("class", "ms-rteTableEvenRow-default")
    Else
        mTR.SetAttribute("class", "ms-rteTableOddRow-default")
    End If
    mTh.SetAttribute("class", "ms-rteTableFirstCol-default")
    mTDEven1.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd1.SetAttribute("class", "ms-rteTableOddCol-default")
    mTDEven2.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd2.SetAttribute("class", "ms-rteTableOddCol-default")
    mTDEven3.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd3.SetAttribute("class", "ms-rteTableOddCol-default")
    'mTh.InnerHtml = <th class="ms-rteTableFirstCol-default">netasq</th>
    'mTDOdd1.InnerHtml = <td class="ms-rteTableOddCol-default">1</td>
    'mTDEven1.InnerHtml = <td class="ms-rteTableEvenCol-default">2</td>
    mTR.AppendChild(mTh)
    mTR.AppendChild(mTDOdd1)
    mTR.AppendChild(mTDEven1)
    mTR.AppendChild(mTDOdd2)
    mTR.AppendChild(mTDEven2)
    mTR.AppendChild(mTDOdd3)
    mTR.AppendChild(mTDEven3)
    mTBody.AppendChild(mTR)
End Sub

Private子AddRowToTable2（）
作为HtmlElement=WebBrowser1.Document.GetElementById的Dim元素（“表2”）
Dim mTBody作为HtmlElement=element.FirstChild
Dim mTR作为HtmlElement=WebBrowser1.Document.CreateElement（“TR”）
Dim mTh为HtmlElement=WebBrowser1.Document.CreateElement（“TH”）
将mTDOdd1标注为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）
Dim mTDEven1为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）
Dim mTDOdd2作为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）
Dim mTDEven2作为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）
作为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）的Dim mTDOdd3
Dim mTDEven3作为HtmlElement=WebBrowser1.Document.CreateElement（“TD”）
mTR.Style=“文本对齐：居中”
“对他甚至对奥涅文·里杰·莫特·齐恩的控制
如果mTBody.Children.Count Mod 2=0，则
mTR.SetAttribute（“类”，“ms RTETableEverRow默认值”）
其他的
mTR.SetAttribute（“类”，“ms rteTableOddRow默认值”）
如果结束
mTh.SetAttribute（“类”，“ms rteTableFirstCol默认值”）
mTDEven1.SetAttribute（“类”，“ms rteTableEvenCol默认值”）
mTDOdd1.SetAttribute（“类”，“ms rteTableOddCol默认值”）
mTDEven2.SetAttribute（“类”，“ms rteTableEvenCol默认值”）
mTDOdd2.SetAttribute（“类”，“ms rteTableOddCol默认值”）
mTDEven3.SetAttribute（“类”，“ms RTETableEventCol默认值”）
mTDOdd3.SetAttribute（“类”，“ms rteTableOddCol默认值”）
'mTh.InnerHtml=netasq
'mTDOdd1.InnerHtml=1
'mTDEven1.InnerHtml=2
港铁附属物（mTh）
mTR.AppendChild（mTDOdd1）
mTR.AppendChild（mTDEven1）
mTR.AppendChild（mTDOdd2）
mTR.AppendChild（mTDEven2）
mTR.AppendChild（mTDOdd3）
mTR.AppendChild（mTDEven3）
mTBody.AppendChild（mTR）
端接头

Private Sub AddRowToTable2()
    Dim element As HtmlElement = WebBrowser1.Document.GetElementById("table2")
    Dim mTBody As HtmlElement = element.FirstChild
    Dim mTR As HtmlElement = WebBrowser1.Document.CreateElement("TR")
    Dim mTh As HtmlElement = WebBrowser1.Document.CreateElement("TH")
    Dim mTDOdd1 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven1 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDOdd2 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven2 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDOdd3 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    Dim mTDEven3 As HtmlElement = WebBrowser1.Document.CreateElement("TD")
    mTR.Style = "TEXT-ALIGN: center"
    'controle of het een even of oneven rij moet zijn
    If mTBody.Children.Count Mod 2 = 0 Then
        mTR.SetAttribute("class", "ms-rteTableEvenRow-default")
    Else
        mTR.SetAttribute("class", "ms-rteTableOddRow-default")
    End If
    mTh.SetAttribute("class", "ms-rteTableFirstCol-default")
    mTDEven1.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd1.SetAttribute("class", "ms-rteTableOddCol-default")
    mTDEven2.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd2.SetAttribute("class", "ms-rteTableOddCol-default")
    mTDEven3.SetAttribute("class", "ms-rteTableEvenCol-default")
    mTDOdd3.SetAttribute("class", "ms-rteTableOddCol-default")
    'mTh.InnerHtml = <th class="ms-rteTableFirstCol-default">netasq</th>
    'mTDOdd1.InnerHtml = <td class="ms-rteTableOddCol-default">1</td>
    'mTDEven1.InnerHtml = <td class="ms-rteTableEvenCol-default">2</td>
    mTR.AppendChild(mTh)
    mTR.AppendChild(mTDOdd1)
    mTR.AppendChild(mTDEven1)
    mTR.AppendChild(mTDOdd2)
    mTR.AppendChild(mTDEven2)
    mTR.AppendChild(mTDOdd3)
    mTR.AppendChild(mTDEven3)
    mTBody.AppendChild(mTR)
End Sub