我用FT的代码生成的xml 在notepad里面无法按照层级结构显示 感觉堆在一起
此主题相关图片如下：1.png
这个是FT生成的
此主题相关图片如下：2.png
这是其他软件生成的
ft代码
With Tables("订单")
If .current IsNot Nothing Then
Dim jo As new XObject
For Each c As Col In Tables("订单").cols
jo(c.name)=.current(c.name).Tostring()
Next
Dim fl As String=ProjectPath & "xml\" & .current("单号") & "\" & .current("单号") & ".xml"
If FileSys.FileExists(fl) Then
FileSys.DeleteFile(fl)
End If
Dim str As String="<?xml version=""1.0"" encoding=""UTF-8"" standal"?> " & "<!--Web portal To AES: the XML Document Definition: Viewing Order
Version 1 " & "by foxtable " & Date.now & "-->"
FileSys.WriteAllText(fl,str & jo.Toxml, True, Encoding.Default)
End If
End With
加好友 
发短信
Post By：2018/7/23 16:54:00 [显示全部帖子]
