WesSouza

Bom Obrigado PElo exemplo mas preciso de Todas as informções na consulta, preciso um em que mostre todos os campos e valores com o Total geral

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes . Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907 Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%. Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código: Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint array7 = base7.relatorio_Imovel_Cadastrados End Sub Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage Dim final As Integer = array7.Count - 0 Dim g As Graphics = e.Graphics LAtual7 = 4 Dim i As Integer While (i < LAtual7 And index7 < final) modelagem7 = array7(index7) ' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22) g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22) 'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22) g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22) ' 'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22) g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22) 'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22) g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22) 'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22) g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22) 'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22) g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22) 'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22) g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22) ' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22) g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22) ' 'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22) g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22) 'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22) g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22) 'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22) g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22) g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22) 'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080) i += 1 index7 += 1 If index7 < final Then e.HasMorePages = True Else e.HasMorePages = False End If End While End Sub Agradeceria Qualquer tipo de Ajuda! Obrigado Persistencia leva a Perfeição !

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes . Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907 Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%. Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código: Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint array7 = base7.relatorio_Imovel_Cadastrados End Sub Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage Dim final As Integer = array7.Count - 0 Dim g As Graphics = e.Graphics LAtual7 = 4 Dim i As Integer While (i < LAtual7 And index7 < final) modelagem7 = array7(index7) ' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22) g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22) 'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22) g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22) ' 'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22) g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22) 'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22) g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22) 'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22) g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22) 'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22) g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22) 'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22) g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22) ' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22) g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22) ' 'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22) g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22) 'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22) g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22) 'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22) g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22) g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22) 'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080) i += 1 index7 += 1 If index7 < final Then e.HasMorePages = True Else e.HasMorePages = False End If End While End Sub Agradeceria Qualquer tipo de Ajuda! Obrigado Persistencia leva a Perfeição !

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes . Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907 Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%. Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código: Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint array7 = base7.relatorio_Imovel_Cadastrados End Sub Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage Dim final As Integer = array7.Count - 0 Dim g As Graphics = e.Graphics LAtual7 = 4 Dim i As Integer While (i < LAtual7 And index7 < final) modelagem7 = array7(index7) ' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22) g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22) 'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22) g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22) ' 'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22) g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22) 'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22) g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22) 'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22) g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22) 'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22) g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22) 'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22) g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22) ' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22) g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22) ' 'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22) g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22) 'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22) g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22) 'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22) g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22) g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22) 'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080) i += 1 index7 += 1 If index7 < final Then e.HasMorePages = True Else e.HasMorePages = False End If End While End Sub Agradeceria Qualquer tipo de Ajuda! Obrigado Persistencia leva a Perfeição !

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes . Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907 Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%. Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código: Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint array7 = base7.relatorio_Imovel_Cadastrados End Sub Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage Dim final As Integer = array7.Count - 0 Dim g As Graphics = e.Graphics LAtual7 = 4 Dim i As Integer While (i < LAtual7 And index7 < final) modelagem7 = array7(index7) ' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22) g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22) 'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22) g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22) ' 'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22) g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22) 'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22) g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22) 'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22) g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22) 'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22) g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22) 'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22) g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22) ' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22) g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22) ' 'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22) g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22) 'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22) g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22) 'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22) g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22) g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22) 'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080) i += 1 index7 += 1 If index7 < final Then e.HasMorePages = True Else e.HasMorePages = False End If End While End Sub Agradeceria Qualquer tipo de Ajuda! Obrigado Persistencia leva a Perfeição !

Esses campos tem espaços em Branco Porque pelo Meu script fiz com que eles não aparececem para não repetir dados iguais somente nessas colunas para uma melhor vizualização quando Colado em um relátorio... E esse loop teria que checar o campo Cod_processo para realizar a soma e exibir o Total Geral dos Depositos do Nome, pois o importante é saber o Tatal Geral de Cada diferente Cod _processo... Talves eu tenha que reconstruir meu scrpt mas não saberia como aplicar todas as condições que preciso.. Mas em um primeiro momento Eu precisaria de uma exemplo desse Loop que voce comentou Muito Obrigado mesmo pela ajuda!

Muito Obrigado Estava buscando um exemplo para tentar modificar o meu scrpt, que exiba alem do Total de cada depositante_deposito Total Geral de acordo com o cod_processo, no seu exemplo só acontece um total, de uma olhada na imagem fica mais claro a minha duvida... http://social.msdn.microsoft.com/Forums/getfile/72714 ;with cte_teste as( select depositante_deposito , cod_processo,sum(valor_deposito) as valor_deposito ,data_vencimento_deposito,guia_deposito, id_deposito, cod_mandado, cod_guia_deposito from deposito group by rollup( depositante_deposito, cod_processo, data_vencimento_deposito, guia_deposito, id_deposito, cod_mandado, cod_guia_deposito)), Base as ( select depositante_deposito , cod_processo,valor_deposito ,data_vencimento_deposito,guia_deposito, id_deposito, cod_mandado, cod_guia_deposito ,row_number() over (partition by depositante_deposito order by depositante_deposito,cod_processo) numerador ,row_number() over (partition by cod_processo order by cod_processo,depositante_deposito)numerador2 from cte_teste WHERE(depositante_deposito Is Not null And cod_processo Is Not null And guia_deposito Is Not null And id_deposito Is Not null And cod_mandado Is Not null And cod_guia_deposito Is Not null) or (depositante_deposito is not null and cod_processo is not null and guia_deposito is null and id_deposito is null and cod_mandado is null and cod_guia_deposito is null and data_vencimento_deposito is null)) select case when numerador =1 then depositante_deposito else '' end as Nome,case when numerador2 =1 then cod_processo else '' end as cod_processo,valor_deposito ,data_vencimento_deposito,guia_deposito ,id_deposito ,cod_mandado,cod_guia_deposito from Base Bom Se voce tiver sugestões Agradeço !!

Sim Entendi o seu ponto de vista mas voce teria algum exemplo prático para eu não me confundir no Codigo? Obrigado!

Exatamente o que eu consegui fazer... Porem eu gostaria que aparece o Total referente ao Depositante e o Total Geral de acordo com /Cod em que o Depositante depositou EX: Cod Depositante Valor 123 Joao 100,00 - - 110,00 - - 210,00 Total - Jose 55,00 - - 60,00 105,00 Total 315,00 Total Geral no Cod 123 Obrigado pela ajuda

Bom possuo uma consulta Sql Que efetua soma do campo valor_deposito Corretamente... Mas gostaria que tambem exibixe um total geral a cada diferente cod_processo que os valores estão relacionados...

Bom possuo uma consulta Sql Que efetua soma do campo valor_deposito Corretamente... Mas gostaria que tambem exibixe um total geral a cada diferente cod_processo :mellow:

Opa tudo Certo pessoal? Recebi muita ajuda daqui sobre Array.. Mas agora estou tentando fazer com que os dados que não couberam na primeira pagina vão para segunda ... Efim até não existir + dados a serem exibidos no PrintDocument. Estou utilizando a seguinte programação. http://social.microsoft.com/Forums/getfile/40385/ Dim array5 As New ArrayList Dim itemAtual As Integer = 0 Dim final As Integer Dim paginas As Integer Dim dpp As Integer = 7 Private Sub PrintDocument5_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument5.BeginPrint Dim base As New Class_Relatorio_Parte array5 = base.relatorio_Parte() final = array5.Count - 1 paginas = Math.Ceiling(final / dpp) End Sub Private Sub PrintDocument5_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument5.EndPrint array5 = Nothing End Sub Private Sub PrintDocument5_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument5.PrintPage 'Cadastro de Partes' Dim modelagem As New Class_Parte_relatorio 'VER EM QUAL REGISTRO IRÁ EXIBIR Dim i As Integer = 0 Dim g As Graphics = e.Graphics Dim FonteCabecalho As New Font("Verdana", 15, System.Drawing.GraphicsUnit.Point) Dim FonteTexto As New Font("Arial", 10, System.Drawing.GraphicsUnit.Point) Dim FonteTextoBold As New Font("Arial", 10, FontStyle.Bold, System.Drawing.GraphicsUnit.Point) Dim FonteParte As New Font("Arial", 8, System.Drawing.GraphicsUnit.Point) g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 30) While i < dpp modelagem = array5(itemAtual) g.DrawString("Nome:", FonteTextoBold, Brushes.Black, 80, 200 + i * 100) g.DrawString(modelagem.nome, FonteTexto, Brushes.Black, 190, 200 + i * 100) g.DrawString("Cod:", FonteTextoBold, Brushes.Black, 80, 220 + i * 100) g.DrawString(modelagem.id, FonteTexto, Brushes.Black, 250, 220 + i * 100) g.DrawString("CPF/CNPJ:", FonteTextoBold, Brushes.Black, 80, 240 + i * 100) g.DrawString(modelagem.cpf_cnpj, FonteTexto, Brushes.Black, 230, 240 + i * 100) g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 260 + i * 100) g.DrawString(modelagem.endereco, FonteTexto, Brushes.Black, 250, 260 + i * 100) 'CONTADOR +1 - PRÒXIMO REGISTRO itemAtual += itemAtual i += i If itemAtual = final Then Exit While End If End While If itemAtual < final Then e.HasMorePages = True Else e.HasMorePages = False End If End Sub Assim Ele exibi um Erro : Generico de GDI +

Na verdade eu utilizo aqui Public Class Class_Cadastro_Adv Private _uf As String Private _nome As String Private _endereco As String Private _cep As String Private _telefone As String Private _celular As String Private _fax As String Private _email As String Private _id As String Public Sub New() _uf = "" _nome = "" _endereco = "" _cep = "" _telefone = "" _celular = "" _fax = "" _email = "" _id = "" End Sub Public Sub New(ByVal id As Integer, ByVal nome As String, ByVal endereco As String, ByVal cep As String, ByVal telefone As String, ByVal celular As String, ByVal fax As String, ByVal email As String) _id = oab _nome = nome _endereco = endereco _cep = cep _telefone = telefone _celular = celular _fax = fax _email = email End Sub Public Property oab() Get Return _id End Get Set(ByVal value) _id = value End Set End Property Public Property nome() Get Return _nome End Get Set(ByVal value) _nome = value End Set End Property Public Property endereco() Get Return _endereco End Get Set(ByVal value) _endereco = value End Set End Property Public Property cep() Get Return _cep End Get Set(ByVal value) _cep = value End Set End Property Public Property telefone() Get Return _telefone End Get Set(ByVal value) _telefone = value End Set End Property Public Property celular() Get Return _celular End Get Set(ByVal value) _celular = value End Set End Property Public Property fax() Get Return _fax End Get Set(ByVal value) _fax = value End Set End Property Public Property email() Get Return _email End Get Set(ByVal value) _email = value End Set End Property End Class Utilizo dessa forma para montar relatorio no Print Document. e esta ocorrendo conflito quando no Banco possui algum valor em branco ele não consegue simplesmente não exibir nada. Assim ocorrendo erro tentei usar IIf(IsDBNull(.dReader("cod_OAB")), 0, .dReader("cod_OAB")) espero q seja o caminho.

kk Eita não deu certo olha o código... Imports System.Data Imports System.Data.SqlClient Public Class Class_Base_Relatorio_Advogados : Inherits Conect Function relatorio_Advogados_Cadastrados_Base() Dim con As New Conect Dim array As New ArrayList Dim a As New Class_Cadastro_Adv Try With con .parametro.CommandText = "SELECT cod_OAB, nome_advogado, endereco_advogado, cep_advogado, telefone_advogado, celular_advogado, fax_advogado,email_advogado FROM advogado" .conectar() .dReader = .parametro.ExecuteReader While .dReader.Read array.Add(New Class_Cadastro_Adv(.dReader("cod_OAB").ToString(), .dReader("nome_advogado").ToString(), .dReader("endereco_advogado").ToString(), .dReader("cep_advogado").ToString(), .dReader("telefone_advogado").ToString(), .dReader("celular_advogado").ToString(), .dReader("fax_advogado").ToString(), .dReader("email_advogado").ToString)) End While Return array End With Catch exSql As NullReferenceException Throw New Exception(exSql.Message) Catch exSql As SqlException Throw New Exception(exSql.Message) Finally desconectar() End Try End Function End Class :(

Obrigado o exemplo é bom , mas utilizo o a Vb.net Teria algum exemplo no VB.Net !! Vlw.