你表设计有问题!
此处应该是三个表的
1. <HEAD> 也许是车辆 资料用的
2. <ORDER> 订单 资料用的
3. <CONT> 货柜 资料用的
你的对数据的 Normalize 出错了!
将要导入这个XML文件的系统就正规很多了!
你建好三个表后,
Open "1.txt" for output as #1
set rs1 = Currentdb().open("select * from tblTruck where [车牌号码]='" & x & "' and [车次号]='" & y & "'")
Print #1, "<CABIN>"
do while not rs1.eof
Print #1, "<HEAD>" & rs1!车牌号码 & "||" & rs1!车次号 & "||" & LTRIM(rs1!总箱个数) & "||" & ... & "</HEAD>"
set rs2 = CurrentDB().open("select * from tblOrder where [车牌号码]='" & x & "' and [车次号]='" & y & "'")
do while not rs2.eof()
Print #1, "<ORDER>" & rs1!车牌号码 & "||" & rs1!车次号 & "||1|" & LTRIM(rs2!订单流水号) & "||" & rs2!订单号 & "||" & ...
set rs3 = CurrentDB().open("select * from tblContainer where [车牌号码]='" & x & "' and [车次号]='" & y & "' and [订单号]='" & rs2!订单号 & "'")
do while not rs3.eof()
Print #1, "<CONT>" & ...... "</CONT>"
rs3.movenxt
loop
Print #1, "</ORDER>"
loop
rs1.movenext
loop
Print #1, "</CABIN>"
close #1