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:
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:
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:
Alguém tem alguma idéia do que pode ser?
Obrigado!