Fórum DataGrid VB.Net #65447

Olá!

Estou tentando fazer com que minha grid fique como o exemplo desse site [url]http://www.macoratti.net/vbn_dts3.htm[/url] porém só estou conseguindo deixá-la dessa forma (o que está circulado de vermelho) [url]http://www.mas.com.br/Artigos/Classe_Dataset.htm[/url]


Aí vai meu código


´********************************************************

Dim cn As OleDbConnection = New OleDbConnection(strConnection)

cn.Open()

´ define um objeto dataAdapater

Dim strSql As String = ´SELECT * FROM Particular_Amostra WHERE ID_Solicitacao = 1 and ID_Amostra = 1´
Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSql, cn)

´ Carrega o DataSet

Dim ds As DataSet = New DataSet

Try
da.Fill(ds, ´Particular_Amostra´)
Catch ex As Exception
MsgBox(ex.Message)
End Try

´ Define um novo objeto DataAdapter

strSql = ´SELECT * FROM Particular_Amostra, Amostra_Particular_Analise WHERE Particular_Amostra.ID_Solicitacao = Amostra_Particular_Analise.ID_Solicitacao = 1 and Amostra_Particular_Analise.ID_Amostra = Particular_Amostra.ID_Amostra = 1´

da = New OleDbDataAdapter(strSql, cn)

´ carrega o dataset.

Try
da.Fill(ds, ´Amostra_Particular_Analise´)

´Cria um objeto DataRelation para ligar as duas tabelas
Dim dr As DataRelation
Dim dc1 As DataColumn
Dim dc2 As DataColumn

´Pegar as colunas Mestre e Detalhe das duas tabelas
dc1 = ds.Tables(´Amostra_Particular_Analise´).Columns(´ID_Analise´)
dc2 = ds.Tables(´Particular_Amostra´).Columns(´ID_Analise´)
dr = New System.Data.DataRelation(´Produtos deste Fornecedor´, _
dc1, dc2)
ds.Relations.Add(dr) ´Adiciona o relacionamento
cn.Close()

Catch ex As Exception
MsgBox(ex.Message)
End Try

DataGrid1.DataSource = ds

´******************************************

Alguém sabe o que devo fazer pra que minha grid possa ser apresentada como no 1º exemplo?

Obrigada e Feliz Ano Novo pra todos =)[url][/url]