Ситуация следующая. Считываю данные из XML, заношу в ListView. При событии listView_ItemClick информация по данным в Item (по ID) отображается в TextBox и Label. Вопрос в следующем - как обрабатывать ситуацию отсутсвия какого-либо узла в XML-документе или информации в нем? Заранее спасибо. На всякий случай приведу код:
sub form_load()
Dim li As ListItem
Dim a As New MSXML.DOMDocument
a.loadXML str
lvFind.ListItems.Clear
Dim b
Set b = a.getElementsByTagName("O5")
For Each Key In b
Set li = lvFind.ListItems.Add(, "ID" & Key.selectSingleNode("@id").Text, Key.selectSingleNode("./pTabNum").Text)
li.SubItems(1) = StrConv(StrConv(Key.selectSingleNode("./pFam").Text, vbLowerCase), vbProperCase)
li.SubItems(2) = StrConv(StrConv(Key.selectSingleNode("./pIm").Text, vbLowerCase), vbProperCase)
li.SubItems(3) = StrConv(StrConv(Key.selectSingleNode("./pOtch").Text, vbLowerCase), vbProperCase)
Next
end sub

Private Sub lvFind_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim Detail As New MSXML.DOMDocument
Detail.loadXML str

Dim bb
Set bb = Detail.getElementsByTagName("O5")
For Each Key In bb
lblDateRojd(0).Caption = Key.selectSingleNode("./pDatBth").Text
lblTypeDoc(0).Caption = Key.selectSingleNode("./O13/pDocType").Text
lblSeriy(0).Caption = Key.selectSingleNode("./O13/pDocSer").Text
lblNomer(0).Caption = Key.selectSingleNode("./O13/pDocNum").Text
lblSex(0).Caption = Key.selectSingleNode("./pSex").Text
Next
End Sub

Эх, вопрос что ли неточно задала...... Или ни у кого не возникало таких проблем?