BOA PRATICA

  Dim listaFiltrada As List(Of Venda) = vsv_list.FindAll(Function(p As Venda) p.Id = vsv_grid.CurrentRow.Cells(0).Value.ToString)
        For Each i As Venda In listaFiltrada
            vsv_id_venda.Text = i.Id
            vsv_tipo.Text = i.Tipo
            vsv_data.Text = i.Data
            vsv_pgto.Text = i.Pgto
            Dim ClassConex As Cliente
            Dim listCli = ClassConex.BuscaCliente(i.IdCliente)
            For Each j As Cliente In listCli
                vsv_cli_id.Text = j.Id
                vsv_cli_nome.Text = j.RazaoSocial
                vsv_cli_fone.Text = j.Fone
                vsv_cli_celular.Text = j.Celular
            Next
            Dim ClassConexVendedor As Funcionario
            Dim ListFun = ClassConexVendedor.BuscarFuncionario(i.IdVendedor)
            For Each k As Funcionario In ListFun
                vsv_vendedor_id.Text = k.Id
                vsv_vendedor_nome.Text = k.Nome
            Next
            Dim ClassConexTabelaProduto As Venda_produtos
            Dim ListPro = ClassConexTabelaProduto.BuscarProdutosDeVendas(i.Id)
            For Each l As Venda_produtos In ListPro
                vsv_grid_produto.Rows.Clear()
                Dim ClassConexPro As Produtos
                Dim ListProNome = ClassConexPro.BuscaProduto(l.IdProduto, [Ô]Interno[Ô])
                For Each m As Produtos In ListProNome
                    vsv_grid_produto.Rows.Add(m.CodInterno, m.Descricao, l.Valor)
                Next
            Next
        Next