开发工具：VB6.0
现有如下代码，请各路高手赐教！小弟不胜感激~~如有源码更好！
Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'请问如何把xmlStr转成一个xml文档?
End Sub
Public Function getXML() As String
Dim xml As String
xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
xml = xml + " <FREIGHTCPIC>"
xml = xml + " <HEADER>"
xml = xml + " <TYPE>IN </TYPE>"
xml = xml + " <WORKTYPE>0 </WORKTYPE>"
xml = xml + " <CLASSESTYPE>1 </CLASSESTYPE>"
xml = xml + " <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
xml = xml + " <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
xml = xml + " </HEADER>"
xml = xml + " </FREIGHTCPIC>"
getXML = xml
End Function
代开各行业【増直/鐠通】
如何对xml内容数据进行比较
例如：
<?xml version='1.0' encoding='utf-8'?>
<TestLIST>
<PID>40</PID>
<TestName>深圳市</TestName>
......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
