◀ Previous Next ▶ Up ▲


witpoko.com


การเขียนข้อมูลเป็นfile.xml

Code ตามข้างล่างนี้

Dim wr As StreamWriter = File.AppendText(Server.MapPath("orderlist.xml"))
Dim DTable As New DataTable()
Dim DRow As DataRow
DTable.Columns.Add(New DataColumn("productid", GetType(String)))
DTable.Columns.Add(New DataColumn("productqty", GetType(Integer)))
DTable.Columns.Add(New DataColumn("price", GetType(Integer)))
DTable.Columns.Add(New DataColumn("total", GetType(Integer)))
DRow = DTable.NewRow()
DRow.Item("productid") = productid.selecteditem.text
DRow.Item("productqty") = productqty.text
DRow.Item("price") = productid.selecteditem.value
DRow.Item("total") = productid.selecteditem.value*productqty.text
DTable.Rows.Add(DRow)
Dim ds As new Dataset
ds.Tables.Add(DTable)
ds.writeXML(wr)
wr.close

กรอกข้อมูลผ่าน Textbox ในเว็บสองหนจะได้ข้อมูลใน file.xml ดังนี้

<NewDataSet>
<Table1>
<productid>A01</productid>
<productqty>2</productqty>
<price>100</price>
<total>200</total>
</Table1>
</NewDataSet>

<NewDataSet>
<Table1>
<productid>A01</productid>
<productqty>3</productqty>
<price>100</price>
<total>300</total>
</Table1>
</NewDataSet>

แต่อยากให้มันเป็นแบบนี้ ต้องทำอย่างไรค่ะ

<NewDataSet>
<Table1>
<productid>A01</productid>
<productqty>2</productqty>
<price>100</price>
<total>200</total>
</Table1>

<Table1>
<productid>A01</productid>
<productqty>3</productqty>
<price>100</price>
<total>300</total>
</Table1>
</NewDataSet>

แบบแรกจะมี <NewDataSet></NewDataSet> สองอันนะคะ
แบบที่สองมีอันเดียว

อยากได้แบบที่สอง ต้องแก้ไขcodeยังไงคะ
ขอบคุณค่ะ


จากคุณ : นก -[ 14 ก.ค. 50 - 21:47:41 A:58.9.100.198 X: ]





กระทู้ยอดนิยม