Boa tarde pessoal, Estou com o seguinte problema. Estou usando o Crystal para relatorios. Para montar o relatorio com uma unica tabela funciona legal. Mas para mais de uma não achei legal. Segue a forma que estou fazendo 'Com uma tabela
Dim cn As OleDbConnection
Dim tabela1 As OleDbDataAdapter
Dim ds As New Dataset_das_minhas_tabelas
cn = New OleDbConnection("minha conexao")
tabela1 = New OleDbDataAdapter("Select * From tabela1", cn)
tabela1.Fill(ds, "tabela1")
Dim rpt As New meu_rpt
rpt.SetDataSource(ds)
rptview.ReportSource = rpt
'Com duas tabelas
Dim cn As OleDbConnection
Dim tabela1 As OleDbDataAdapter
Dim tabela2 As OleDbDataAdapter
Dim ds As New Dataset_das_minhas_tabelas
cn = New OleDbConnection("minha conexao")
tabela1 = New OleDbDataAdapter("Select * From tabela1", cn)
tabela2 = New OleDbDataAdapter("Select * From tabela2", cn)
tabela1.Fill(ds, "tabela1")
tabela2.Fill(ds, "tabela2")
Dim rpt As New meu_rpt
rpt.SetDataSource(ds)
rptview.ReportSource = rpt Nessa segunda forma ele funciona mas eu tenho que dar um full scan nas tabelas. Gostaria de saber se tem como preencher o dataset com o select da segunte forma. select tabela1.id, tabela1.nome, tabela2.telefone from tabela1, tabela2 where tabela1.dt = '2008-05-20' and tabela1.id = tabela2.id Lembrando que ele deve preencher o Dataset com o valor de cada tabele. Obrigado
