双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒,抽取你的专属好礼

— 惊喜奖品抢先看 —

vb 操作xml '91'错误

OICQshenshi OICQshenshi 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
xml文件内容如下:
<?xml version= "1.0 " encoding= "gb2312 "?>
<集合>
<子集>
<名称> 张三 </名称>
<奖金> 5000 </奖金>
</子集>
<子集>
<名称> 李四 </名称>
<奖金> 4400 </奖金>
</子集>
</集合>

Private Sub Form_Load()
Dim xml As DOMDocument
Set xml = New DOMDocument
Dim root As IXMLDOMNode
Set root = xml.documentElement
Dim node As IXMLDOMNode

xml.async = False
Call xml.Load(App.Path & "\Program.xml ")

Set node = root.selectSingleNode( "李四 ")
MsgBox node.Text

End Sub

最终目的:msgbox出李四的奖金.

异常为:执行到 "Set node = root.selectSingleNode( "李四 ") "这行时,出现 实时错误 '91 ',对象变量或with块变量未设置,请教怎么改啊?
...全文

相关推荐

vb读取xml文件节点值操作实例

VB读取XML文件的操作实例,演示读取XML各个定义键的值。程序是一个专一读取XML文件的VB类,并没有使用微软的XML.DLL。因此比较有参考价值,很不错。

junehuang111

VB.NET实现UDP实时在线云消费机服务器端

UDP(用户数据报协议)是无连接、低延迟的传输层协议,在物联网设备通信中常用于高频小数据包场景。其核心原理是收发双方不建立持久连接,通过Socket套接字直接交换数据,配合应用层心跳保活机制维持在线状态。这种模型天然适应实时在线业务,设备侧定时上报心跳,服务器端维护设备表,一旦超时即判定离线。相比TCP,UDP省去握手和确认开销,适合消费机这类大量小额交易、允许少量丢包靠应用层重发的场景。在工程实践中,开发者需重点关注数据帧编解码、异步接收与并发处理,并合理利用MySQL批量落库保证数据可靠性。以VB.NE

张云雷宝宝

VB中怎样操作XML文件

VB中怎样操作XML文件 (包含VB动态加载控件)

咸清

VB_XML.rar_ VB_XML_VB speeaksdk xml_vb xml_xml_xml vb

VB使用xml的源代码。自己编写的。很不错。一看就懂

朱moyimi

vb6XML读写

vb中读写XML文件实例Dim XMLDoc As DOMDocument Dim root As IXMLDOMNode Dim xlst As IXMLDOMNodeList, xlst1 As IXMLDOMNodeList Dim xn As IXMLDOMNode Dim xnf As IXMLDOMNode Dim xe As IXMLDOMElement Set XMLDoc = New DOMDocument XMLDoc.Load "F:\example\test.xml" 'xml文件路径根据存放路径不同而不同! Set xn = XMLDoc.selectSingleNode("testlist") '以下为读取xml文件内容,这里用ListView控件显示 Set xlst = xn.childNodes ListView1.ListItems.Clear For Each xnf In xlst Set xe = xnf Set xlst1 = xe.childNodes With ListView1.ListItems.Add(, , xlst1.Item(0).Text) .SubItems(1) = xlst1.Item(1).Text .SubItems(2) = xlst1.Item(2).Text End With Next

OUYANLYJ
评论 10
收藏 已收藏
分享
返回顶部
OICQshenshi
XML/XSL 8,906 成员 22,677 内容