添加空行

Question

我正在尝试创建XML保存/加载应用程序。我正在使用DataTable，但是当我使用代码DT.Rows.Add(txtName.text, etc...)时，创建的行是空的。这是我的代码：

Module SaveOrders
Sub Save(ByRef DT As DataTable)
    Dim M As New Main
    Dim ID As String = M.txtOrderID.Text
    DT.TableName = "Ordini"
    DT.Columns.Add("ID ordine")
    DT.Columns.Add("Descrizione")
    DT.Columns.Add("Prezzo")
    DT.Columns.Add("Compratore")
    DT.Columns.Add("Q.tà")
    DT.Rows.Add(ID, M.txtDescription.Text, M.txtPrice.Text, M.txtCustomer.Text, M.txtQuantity.Text)
    DT.WriteXml(Application.StartupPath & "\order_" & ID + ".xml", XmlWriteMode.WriteSchema)
End Sub
End Module