locked
Carregar List(of ) como propriedade de um Objeto e expor em Grid RRS feed

  • Pergunta

  • Pessoal,

    alguém sabe como  carregar  um List(of )  como propriedade de uma objeto  e depois  expor  a lista  completa  em um Grid  com o  objeto principal e os objetos que compoem o List(of)

    AO TENTAR  VINCULAR EM UM GRID  SÓ SAEM  OS  CLIENTES  OS DEPENDENTES NÃO APARECEM,  Tentei tambem colocar   no Eval  de  uma label  num campo  Item Templete, mas não vem a lista..


    Estou tentando com o seguinte  Código:
    Public Class Cliente
        Private _id As Integer
        Private _nomeCliente As String
        Private _dependente As List(Of Dependente) = New List(Of Dependente)
        Public Property Id() As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property
        Public Property NomeCliente() As String
            Get
                Return _nomeCliente
            End Get
            Set(ByVal value As String)
                _nomeCliente = value
            End Set
        End Property
    
        Public Property Dependente() As List(Of Dependente)
            Get
                Return _dependente
            End Get
            Set(ByVal value As List(Of Dependente))
                _dependente = value
            End Set
        End Property
    Public Shared Function Lista() As List(Of Cliente)
            Dim ListaClientes As New List(Of Cliente)
            Dim ListDep As New List(Of Dependente)
            Dim Conn As New SqlConnection("Data Source=ESHSYSTEMS\SQLEXPRESS;Initial " & _
                                          "Catalog=Agora;Integrated Security=True")
            Dim Cmd As New SqlCommand("Select Clientes.ID, Clientes.NomeCliente, " & _
                                      "Dependentes.ID, Dependentes.NomeDependente, " & _
                                      "Dependentes.ClienteID From Clientes Inner Join " & _
                                       "Dependentes on Clientes.ID=Dependentes.ClienteID", Conn)
            Dim dr As IDataReader
    
            Conn.Open()
            dr = Cmd.ExecuteReader
            While dr.Read
                Dim objCli As New Cliente
                Dim objDep As New Dependente
                objCli.Id = dr(0)
                objCli.NomeCliente = dr(1)
                objCli.Dependente = ListDep
                objDep.Id = dr(2)
                objDep.NomeDependente = dr(3)
                objDep.ClienteID = dr(4)
                ListDep.Add(objDep)
                ListaClientes.Add(objCli)
    
            End While
            Return ListaClientes
            dr.Close()
            Conn.Close()
        End Function

    quinta-feira, 9 de julho de 2009 15:44