Olá, vc pode adicionar no dataField do proprio dbgrid, clique duas vezes no dbgrid, vai aparecer uam caixa branca, depois clique com o botão direito e escolha a opção allfield; dai é só tirar o s campos que vc não quer que apareça e pronto.
Em 28/06/05, Charlles Ferdinand<[EMAIL PROTECTED]> escreveu: > Pessoal, to querendo mostrar numa dbgrid, somente alguns campos da tabela > que esta setada, mas não pode ser um em tempo de projeto, eu adicionar os > datafields, tem que ser de acordo com a tabela acessada, é porque tenho um > form somete para este dbgrid, e tenho diversas outras telas que acessam este > mesmo dbgrid e dependendo de que tela vem o comando para mostrar os dados o > dbgrid acessa determinada tabela. > > > estou querendo algo mais automatico do que isto. > > if Key = VK_F9 Then > begin > if FrmAlterar = Nil Then > Application.CreateForm(TFrmAlterar, FrmAlterar); > > FrmAlterar.DSAlterar.DataSet := DM.IBDSetMembro; > FrmAlterar.DBGridAlterar.DataSource := > FrmAlterar.DSAlterar; > DM.IBDSetMembro.Refresh; > > With FrmAlterar.DBGridAlterar.Columns do begin > Items[0].Title.Caption := 'Igreja'; > Items[1].Title.Caption := 'Congregação'; > Items[2].Title.Caption := 'Codigo'; > Items[3].Title.Caption := 'Nome'; > Items[4].Title.Caption := 'Nome do Pai'; > Items[5].Title.Caption := 'Nome da Mãe'; > Items[6].Title.Caption := 'Data de Nascimento'; > Items[7].Visible := False; > Items[8].Visible := False; > Items[9].Visible := False; > Items[10].Visible := False; > Items[11].Visible := False; > Items[12].Visible := False; > Items[13].Visible := False; > Items[14].Visible := False; > Items[15].Visible := False; > end; > > > Charlles Ferdinand > Analista Contábil > Tel: (22) 2622-9739 > msn: [EMAIL PROTECTED] > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou > [EMAIL PROTECTED] > > > > ________________________________ > Links do Yahoo! Grupos > > Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do > Yahoo!. -- []'s Emerson Moreno Mascate Automação Desenvolvedor -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
