ComboBox com erro [Resolvido]

Olá a todos!

Estou tentando criar um ComboBox com a lista de uma consulta de um e3 Browser, na consulta já configurei os campos e o agrupamento para mostrar apenas um item de cada, sem que haja repetição.

Porém ao rodar a aplicação a seguinte mensagem de erro aparece: image

Utilizei o seguinte código:

Sub ComboBox3_OnStartRunning()
set a = Screen.Item(“E3Browser7”).Item(“Lote”).GetE3QueryFields()
for i=1 to a.Count
AddItem a.Item(“Lote Reator 2”)
a.MoveNext
next
End Sub

Também tentei utilizar o código abaixo:

Sub ComboBox3_OnStartRunning()
set a = Screen.Item(“E3Browser7”).Item(“Lote”).GetE3QueryFields()
for i=1 to a.RecordCount
AddItem a.Item(“Lote Reator 2”)
a.MoveNext
next
End Sub

Porém o erro foi outro:
image

E por fim inclui uma consulta direto à tela, configurei e utilizei o código abaixo:

Sub ComboBox3_OnStartRunning()
set a = Screen.Item(“Query1”).GetADORecordset()
for i=1 to a.RecordCount
AddItem a.Fields(“Lote Reator 2”)
a.MoveNext
next
End Sub

Porém mesmo erro:

image

Alguém tem alguma idéia do que pode ser?

Obrigado!

Olá,

    # Add o nome de cada coluna ao combobox
    Set a = Screen.Item("E3Browser7").Item("Lote").GetE3QueryFields()
    For i = 0 To (a.Count - 1)
        AddItem a.Item(i).ColumnName
    Next
    # ou...
    Set a = Screen.Item("E3Browser7").Item("Lote").GetE3QueryFields()
    For Each itm In a
        AddItem itm.ColumnName
    Next

    # Add cada linha da coluna "Lote Reator 2"
    Set a = Screen.Item("E3Browser7").Item("Lote").GetADORecordset()
    While (Not a.EOF)
        AddItem a.Fields.Item("Lote Reator 2").Value
      
        i = i + 1
        a.MoveNext()
    Wend
2 Likes

Muito obrigado Leandro, deu certo aqui.

Abraços

1 Like