private Sub InitXMLConfig()
Dim strFunction As String
strFunction = "InitXMLConfig()"
Dim oNode As MSXML2.IXMLDOMNode, dom As New MSXML2.DOMDocument
Dim n$, v$, m$
dom.async = False
dom.Load App.Path & "\" & CONFIGFILE
dicParms.RemoveAll
For Each oNode In dom.documentElement.childNodes
Select Case LCase(Trim(oNode.nodeName))
Case "param"
n = PARMS_PREFIX & UCase(Trim(getAttrVal(oNode, "name", "")))
v = getAttrVal(oNode, "value", "")
If Not dicParms.Exists(n) Then
dicParms.Add n, v
Debug.Print n
End If
End Select
Next
end subCONFIGFILE是个已经定义好的文件,例如:aa.xml
在调用这个sub的时候出现错误提示 compeli error: can't find project or libray。
光标停在Trim(oNode.nodeName)这个地方
请问该如何解决这个问题?
Dim strFunction As String
strFunction = "InitXMLConfig()"
Dim oNode As MSXML2.IXMLDOMNode, dom As New MSXML2.DOMDocument
Dim n$, v$, m$
dom.async = False
dom.Load App.Path & "\" & CONFIGFILE
dicParms.RemoveAll
For Each oNode In dom.documentElement.childNodes
Select Case LCase(Trim(oNode.nodeName))
Case "param"
n = PARMS_PREFIX & UCase(Trim(getAttrVal(oNode, "name", "")))
v = getAttrVal(oNode, "value", "")
If Not dicParms.Exists(n) Then
dicParms.Add n, v
Debug.Print n
End If
End Select
Next
end subCONFIGFILE是个已经定义好的文件,例如:aa.xml
在调用这个sub的时候出现错误提示 compeli error: can't find project or libray。
光标停在Trim(oNode.nodeName)这个地方
请问该如何解决这个问题?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货