GetE3QueryFields()

Este método retorna a Coleção de Campos ou colunas de uma Consulta. Cada item desta Coleção possui propriedades que podem ser modificadas, conforme descrito no tópico Campo da Consulta. O script a seguir contém um exemplo de uso deste método.

Sub Botao1_Click()
  ' Percorre a coleção de Campos,
  ' mostrando-os em uma caixa de mensagem
  ' e ajustando-os como visíveis
  ' na configuração da Consulta.
 
  Set Browser = Screen.Item("E3Browser")
  Set Consulta = Browser.Item("Consulta")
  Set Campos = Consulta.GetE3QueryFields()
  For Each campo In Campos
    MsgBox CStr(campo.TableName) & "-" & CStr(campo.ColumnName)
    campo.Visible = True
  Next
  ' Refaz a Consulta do E3Browser, que acabou de ser
  ' modificada, para que todos os campos apareçam.
  Browser.RetrieveE3QueryFields()
  Browser.Requery()
End Sub