实时错误730

Question

奇怪，模块中我写了两个非常类似的方法，一个能调用，完全没有问题，另一个总是出现实时错误730，居然说我的第一个字符串参数是控件，说找不到该控件，请教各位大虾，究竟怎么回事，小女子在线等，急，谢谢～～

Answer 1

Public Function searchStuInfo(ByVal operator As String, ByVal computer As String, _
kh As String, number As String) As String    Dim xml As DOMDocument
    Dim transNode, qyhkNode, KHNode, numberNode As IXMLDOMNode
    Set xml = New DOMDocument
    xml.loadXML xmlRequestHead(operator, computer)
    
    Set transNode = xml.documentElement.selectSingleNode("Trans")
    
    Set qyhkNode = transNode.ownerDocument.createElement("QYHK")
    qyhkNode.Text = ""
    transNode.appendChild qyhkNode
    
    Set KHNode = qyhkNode.ownerDocument.createElement("KH")
    KHNode.Text = kh
    qyhkNode.appendChild KHNode
    
    Set numberNode = qyhkNode.ownerDocument.createElement("NUMBER")
    numberNode.Text = number
    qyhkNode.appendChild numberNode
    
     searchStuInfo = xml.xml
End Function
Public Function reportLoss(ByVal operator As String, ByVal computer As String, _
kh As String, number As String) As String    Dim xml As DOMDocument
    Dim transNode, qyhkNode, KHNode, numberNode As IXMLDOMNode
    Set xml = New DOMDocument
    xml.loadXML xmlRequestHead(operator, computer)
    
    Set transNode = xml.documentElement.selectSingleNode("Trans")
    
    Set qyhkNode = transNode.ownerDocument.createElement("GYHK")
    qyhkNode.Text = ""
    transNode.appendChild qyhkNode
    
    Set YHKInfoNode = qyhkNode.ownerDocument.creatElement("YHKInfo")
    YHKInfoNode.Text = ""
    qyhkNode.appendChild YHKInfoNode
    
    Set numberNode = YHKInfoNode.ownerDocument.createElement("NUMBER")
    numberNode.Text = number
    YHKInfoNode.appendChild numberNode
    
    Set KHNode = YHKInfoNode.ownerDocument.createElement("KH")
    KHNode.Text = kh
    YHKInfoNode.appendChild KHNode
    
   reportLoss = xml.xml
End FunctionstrFormData = searchStuInfo("operator", "pc001", "", ID.Text)成功返回XML文件
strFormData = reportLoss("operator", "pc001", "", ID.Text)实时错误730，找不到控件"operator"

Answer 2

具体没看出什么来
不过下面函数比上面函数多一个
Set YHKInfoNode = qyhkNode.ownerDocument.creatElement("YHKInfo")
    YHKInfoNode.Text = ""
    qyhkNode.appendChild YHKInfoNode

Answer 3

这个就是生成的xml文件多一个节点，应该没有任何影响的。730啊，到底怎么回事啊？