Inquiridor
Grid

Pergunta
-
Estou utilizando o Vb.NET e gostaria de saber se existe a possibilidade de fazer uma grid, com hierarquia, isto é, agrupar um conjunto de registro através e aparecer um sinal de mais na frente do registro, tipo o Access faz quando relacionamos tabelas.
Caso sim, como que faço isso, tem algum exemplo.
Todas as Respostas
-
-
-
-
O código que uso é o mesmo para 1 e 2 vez
ds =
New DataSetobjDados.AbreConexao(cnn)
SQL =
"SELECT Setor FROM Clientes GROUP BY Setor ORDER BY Setor"ds = objDados.PopulaDataset(SQL,
"Setor", Erro)SQL =
"SELECT Setor,codPai,NomePai,Marcado FROM Clientes GROUP BY Setor,codPai,NomePai,Marcado ORDER BY NomePai"da =
New OleDbDataAdapter(SQL, cnn)da.Fill(ds,
"Pai")ds.Relations.Add(
"relClientes", ds.Tables("Setor").Columns("Setor"), ds.Tables("Pai").Columns("Setor"), True)SQL =
"SELECT setor, codPai,codFilho,Nome,Marcado FROM Clientes ORDER BY Nome"da =
New OleDbDataAdapter(SQL, cnn)da.Fill(ds,
"Filho")cnn.Close()
Dim x(0 To 1), y(0 To 1) As System.Data.DataColumnx(0) = ds.Tables(
"Pai").Columns("codPai")x(1) = ds.Tables(
"Pai").Columns("Setor")y(0) = ds.Tables(
"Filho").Columns("codPai")y(1) = ds.Tables(
"Filho").Columns("Setor")ds.Relations.Add(
"relFilho", x, y, False)gridCliente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Hierarchical
With gridCliente.SetDataBinding(ds,
"Setor", True) End With