读XML文件报错。麻烦帮忙看一下，问题在哪里？
代码如下：
Dim File As String = args(0)
Dim JA As JArray
Dim strReturn As String
Dim XML As String = filesys.ReadAllText(file,Encoding.default)
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(XML)
If xo("TONGZHISXJ")("FUJIANLB") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC") IsNot Nothing Then
strReturn = xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC").Tostring()
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("YEWULX") IsNot Nothing Then
If xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("YEWULX").Tostring() = "1" Then strReturn = xo("TONGZHISXJ")("FUJIANLB")("FUJIAN")("WENJIANMC").Tostring()
End If
....
错误提示：
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,get官文XML中指定值
详细错误信息：
Exception has been thrown by the target of an invocation.
Accessed JArray values with invalid key value: "WENJIANMC". Int32 array index expected.
xml文件内容如下：
<?xml version="1.0" encoding="GBK"?>
<data-bus>
<FAWENXLH>2021080082620</FAWENXLH>
<TONGZHISID>GA0002398</TONGZHISID>
<TONGZHISXJ>
<QIANMINGXX>
<QIANMINGXX>GA006398_ca.txt</QIANMINGXX>
</QIANMINGXX>
<SHUXINGXX>
<ANJUANH>348042460</ANJUANH>
<DMHFLAG>1</DMHFLAG>
<SHENQINGR>20201218</SHENQINGR>
<FAMINGLX>1</FAMINGLX>
<ZIPBID>20202629</ZIPBID>
<TONGZHISBM>200602</TONGZHISBM>
<TONGZHISMC>办理登记手续通知书</TONGZHISMC>
<FAWENR>20210805</FAWENR>
<SHENQINGH>202077</SHENQINGH>
<FAMINGMC>一种置</FAMINGMC>
<QIXIAN>60</QIXIAN>
</SHUXINGXX>
<FUJIANLB>
<FUJIAN>
<YEWULX>1</YEWULX>
<WENJIANMC>824734364.zip</WENJIANMC>
<WENJIANMS>1</WENJIANMS>
</FUJIAN>
</FUJIANLB>
</TONGZHISXJ>
</data-bus>
加好友 
发短信
Post By：2021/8/11 11:37:00 [只看该作者]
