如何在 VB.net 中将多个文本框值写入 XML 文件？

Question

我是 vb.net 的初学者。 请告诉我如何从 vb.net 中的多个 textbox.text 生成 xml 文件 我在sid“数组边界不能出现在类型说明符中”有错误 我在Dim ds.ReadXml(ds)“预期语句结束”中也有错误

Protected Sub btnChkService_Click(sender As Object, e As EventArgs) Handles btnChkService

    Dim cid As Int32
    Dim sid As Int32
    Dim tid As String
    sid = Convert.ToInt32(TxtSiteId.Text)
    cid = Convert.ToInt32(TxtCompId.Text)
    tid = TxtTokenId.Text
    Dim client As ServiceRef.DemoService()
    Dim DataSet As client.GetEmployees(sid, cid, tid)
    Dim ds As DataSet
    'Dim StringReader sr As New StringReader(data)'
    'Dim DataSet ds As New DataSet(data)'
    Dim ds.ReadXml(ds)
    'string st = Server.MapPath("XMLFile.xml")'
    Dim Data.WriteXml(Data)

End Sub

Answer 1

不确定这是否可行（尚未对其进行测试，也没有时间），但这可能会让您朝着正确的方向前进：

Dim cid As Int32
Dim sid As Int32
Dim tid As String
sid = Convert.ToInt32(TxtSiteId.Text)
cid = Convert.ToInt32(TxtCompId.Text)
tid = TxtTokenId.Text
Dim client As New ServiceRef.DemoService()
Dim ds As DataSet

client.Open()
ds = client.GetEmployees(sid, cid, tid)
ds.WriteXml(Server.MapPath("XMLFile.xml"))

client.Close()

Dim 用于声明指定类型的变量。它不用于调用对象上的方法（尽管可以在 Dim 语句中分配方法的返回值）。

在 Dim 语句中声明和初始化变量的示例是上面的行：

Dim client As New ServiceRef.DemoService()