none
Grid RRS feed

  • 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.

     

    terça-feira, 8 de maio de 2007 12:38

Todas as Respostas

  • Oi !

     

    A DataGrid do .NET 1.1 faz isso automaticamente se o dataset tiver os relacionamentos. Você pode adiciona-la na toolbox e utiliza-la mesmo que esteja usando o .NET 2.0

     

    []'s

     

     

    terça-feira, 8 de maio de 2007 12:53
  • Estou utilizando a dbTrueGrid da ComponentOne

    Tenho outro problema agora

    Como que faço para atualizar os dados, pois quando carregado na primeira vez funciona, mas na segunda, só carrega os dados do primeiro nível

     

    sexta-feira, 11 de maio de 2007 12:25
  •  

    Oi !

     

    Mostre o código que usa para carregar os dados e as chamadas, na 1a e 2a vez...

     

    []'s

     

     

    sexta-feira, 11 de maio de 2007 15:10
  • O código que uso é o mesmo para 1 e 2 vez

     

    Me.Cursor = Cursors.WaitCursor

    ds = New DataSet

    objDados.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.DataColumn

    x(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

    sexta-feira, 11 de maio de 2007 15:28