На форме есть СписокОрганизаций1, который заполняется из xml файла:

<Organization>
<Description>
<Code>1</Code>
<NameOrg>Организация1</NameOrg>
<AddressOrg>ул 1</AddressOrg>
</Description>
<Description>
<Code>2</Code>
<NameOrg>Организация2</NameOrg>
<AddressOrg>ул 2</AddressOrg>
</Description>
</Organization>

и поле КодОрганизации, которое должно обновляться в соотвесствиис тем, какую организацию выбрал пользователь

Подскажите, плз, как это можно сделать?
можно общие мысли...

а как этот код вытащить в поле КодОрганизации?

Private Sub SenderName_Click()

Me.SenderCode.Text = ????

End Sub

да
SenderName это названиt ComboBox со списком организаций,
а SenderCode - название поля, куда выводится код организации

заполняю список так

Private Sub Form_Load()
Dim oXMLDom As New DOMDocument30
Dim oNode As IXMLDOMNode
oXMLDom.async = False
oXMLDom.validateOnParse = False
oXMLDom.resolveExternals = False
oXMLDom.preserveWhiteSpace = True

If oXMLDom.Load(App.Path + "\SenderRecipient.xml") = False Then
MsgBox "Failed to load xml data from file."
Exit Sub
End If

Set oNodes = oXMLDom.selectNodes("//Organization/Description/NameOrg")

For i = 0 To oNodes.length - 1
Set oNode = oNodes.nextNode
If Not (oNode Is Nothing) Then
sName = oNode.nodeName
sData = oNode.xml

Me.SenderName.AddItem oNode.nodeTypedValue
Me.SenderName.ItemData(Me.SenderName.NewIndex) = 42310
End If
Next
End Sub

я на VB не так давно работаю...даже совсем недавно..
подскажи как с одним элементом можно?

код выполняется, но некорректно естественно...

Private Sub SenderName_Click()
Me.SenderCode.Text = Me.SenderName.ItemData(1)
End Sub

в поле выводится один раз 42310 и все...

теперь на Form_Load пишу
If oXMLDom.Load(App.Path + "\SenderRecipient.xml") = False Then
MsgBox "Failed to load xml data from file."
Exit Sub
End If

Set oNodes = oXMLDom.selectNodes("//Organization/Description/NameOrg")

For i = 0 To oNodes.length - 1
Set oNode = oNodes.nextNode
If Not (oNode Is Nothing) Then
sName = oNode.nodeName
sData = oNode.xml

If oXMLDom.Load(App.Path + "\SenderRecipient.xml") = False Then
MsgBox "Failed to load xml data from file."
Exit Sub
End If

Set oNodes = oXMLDom.selectNodes("//Organization/Description/NameOrg")

For i = 0 To oNodes.length - 1
Set oNode = oNodes.nextNode
If Not (oNode Is Nothing) Then
sName = oNode.nodeName
sData = oNode.xml

Me.SenderName.AddItem oNode.nodeTypedValue
Me.SenderName.ItemData(Me.SenderName.NewIndex) = i
End If
Next

Me.SenderCode.Text = Me.SenderName.ItemData(i)



Ругается на самую последнюю строчку

ну да, так название организации и пишется...
или я чего то не пойму...
повторюсь, но поблема то в том, что при выборе из списка организаций менялся код их в другом поле...

а select подойдет? у меня ведь данные в xml файле?

да, тоже верно.
попробую...
А за помощь спасибо.