Visualizar dados no flexgrid de acordo com a opção e data escolhida.(h

[monicamix 0]

Bom dia!Preciso de ajuda...estou desenvolvendo um programa aqui na empresa onde trabalho...vou explicar o que já tenho e o que preciso:Primeiro: - Tenho uma tela que possui um flexgrid, - 02 frames - no 1º tenho os options de Unidade: .Unidade Moema, .Unidade Sta Cruz .Todas as unidades no 2º tenho os options de período: .Todos .Noturno .Diurno .Sábado - Coloquei um DTPicker(onde posso escolher a data do curso) - Coloquei tb na tela um PictureBox chamado PicBuscaSegundo: Preciso que ao escolher a unidade , o período e a data , ao clicar no botão PicBusca eu possa visualizar no flex grid somente as turmas que estão de acordo com estes parâmetros. Como eu faço isso? Me ajudem!Desde já agradeço!

[Mc.Flae 0]

Opa. ae velho, estou fazendo um programinha que tem quase o mesmo esquema.

Acredito que vendo de exemplo aqui você consegue adaptar para as suas necessidades.

A diferença é que estou usando Datagrid, mas acredito que isso não muda muita coisa.

 

Dá uma olhada: http://mcflae.multiply.com/photos/hi-res/1...2Fphoto%2F1%2F1

 

No formload pro datagrid abrir o BD

rscliente.Open "cliente", cn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rscliente

No botão que ira efetuar a busca (no meu caso estou usando no evento change do textbox):

Private Sub txtbusca_Change()Set tabela = New ADODB.RecordsetIf Option1 = True Thentabela.Open "select * from cliente where cpf like '" & txtbusca.Text & "%'", cnSet DataGrid1.DataSource = tabelaEnd IfIf Option2 = True Thentabela.Open "select * from cliente where nome_cliente like '" & txtbusca.Text & "%'", cnSet DataGrid1.DataSource = tabelaEnd IfIf tabela.EOF ThenMsgBox "Cliente não encontrado", vbCritical, "Consulta"End IfEnd Sub