Usando informação combobox para criar um filtro no E3Browser SQLExpress

#1

Boa tarde.
Criei um scritp onde eu consigo coletar o nome de cada coluna do SQL e disponibilizar essa informação no ComboBox, mas não estou conseguindo usar a informação selecionada do ComboBox para criar um filtro no E3Browser. Alguem poderia me dar uma orientação, por favor?

Exemplo do que gostaria de fazer - substituir [PCAS] por uma opção selecionada do ComboBox ([PCAS], [PCAS2], [PCAS3] ao clicar em um botão.

SELECT TOP (1000) [E3TimeStamp],[PCAS] FROM [BD_TESTE].[dbo].[Hist] ORDER BY [Hist].[E3TimeStamp] DESC

Atualmente tenho um botão que faz o filtro por data inicial e final, mas gostaria de adicionar essa funcionalidade da opção de coluna.

#2

Olá @falecomfilipebrito, tente isto:

Sub cmbListColumns_Change()
	Dim objE3Browser
	Dim objCst
	
	' Capturando objeto de E3Browser
	Set objE3Browser = Screen.Item("E3Browser")
	
	' Capturando objeto de consulta
	Set objCst = objE3Browser.E3Query

	If (Value <> "" and Value <> "E3TimeStamp") Then
		' Alterando segunda coluna a ser apresentada na tabela de acordo com
		' a selecao da lista
		objCst.SQL = "Select Top 1000 E3TimeStamp, " & Value & vbCrlf &_
					 "From Hist Order By E3TimeStamp Desc"
		
		' Atualiza a tabela 
		With objE3Browser
			.RetrieveE3QueryFields()	
			.Requery()	
		End With
	End if
 End Sub