求助：多个表组合生成一个XML文件，已实现单个工作表生成实现XML，求助多个工作表怎么实现按照“起诉书编号”这个关联字段来对应生成XML文件呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

类似

Dim xls As String = "F:\H\问题测试/工作簿.xls"

Dim book As new XLS.Book(xls)

Dim sheet As XLS.Sheet= book.Sheets(0)

Dim xml As String = "F:\H\问题测试/工作簿.xml"

Try

Dim writer As New Xml.XmlTextWriter(xml, System.Text.Encoding.GetEncoding("utf-8"))

writer.Formatting = System.Xml.Formatting.Indented

'书写根元素()

writer.WriteStartElement("case")

For i As Integer = 1 To sheet.Rows.count -1

'添加次级元素

writer.WriteStartElement("caseRegistration")

For j As Integer = 0 To sheet.Cols.count -1

'添加子元素()

writer.WriteElementString(sheet(0,j).value,sheet(i,j).value)

Dim sheet2 As XLS.Sheet= book.Sheets(1)

For i2 As Integer = 1 To sheet2.Rows.count -1

If sheet2(i2,0).value = sheet(i,0).value

'添加次级元素

writer.WriteStartElement("提交材料")

For j2 As Integer = 0 To sheet2.Cols.count -1

'添加子元素()

writer.WriteElementString(sheet2(0,j2).value,sheet2(i2,j2).value)

'关闭次级元素DatabaseSetting

writer.WriteEndElement()

End If

'关闭次级元素DatabaseSetting

writer.WriteEndElement()

'关闭根元素

writer.WriteFullEndElement()

'将XML写入文件并关闭writer

writer.Close()

Catch ex As Exception

MsgBox(ex.Message & vbCrLf & ex.StackTrace)

End Try

主题：求助：多个表组合生成一个XML文件，已实现单个工作表生成实现XML，求助多个工作表怎么实现按照“起诉书编号”这个关联字段来对应生成XML文件呢?