none
Tranformação código de c# para vb.net RRS feed

  • Pergunta

  • como eu transformo esse código data.Add(new { ID = "S" + i, Name = "Supplier " + i}); em VB.net?

    quando data.Add(new, ... está dando erro na virgula.

    como seria?

    segunda-feira, 14 de maio de 2012 20:04

Respostas

  • Veja se isto resolve:

    Dim data As New List(Of Object)()
    data.Add(New With { _
    	Key .ID = Convert.ToInt32(reader("COD_PRODUTO").ToString()), _
    	Key .Name = reader("COD_PRODUTO").ToString(), _
    	Key .Name1 = reader("COD_INDEXADOR").ToString(), _
    	Key .Name2 = reader("NOM_PRODUTO").ToString(), _
    	Key .Name3 = reader("NOM_SISTEMA").ToString(), _
    	Key .Name4 = reader("COD_SISTEMA").ToString(), _
    	Key .Name5 = reader("MTM").ToString(), _
    	Key .Name6 = reader("ACCRUAL").ToString(), _
    	Key .Name7 = reader("DV01").ToString(), _
    	Key .Name8 = reader("PRAZO_MEDIO").ToString(), _
    	Key .Name9 = reader("DATA_BASE").ToString(), _
    	Key .Name10 = reader("VALOR_TIR").ToString(), _
    	Key .Name11 = reader("STATUS_MTM").ToString(), _
    	Key .Name12 = reader("STATUS_DV01").ToString(), _
    	Key .Name13 = reader("STATUS_PMP").ToString() _
    })

    Eu usei este site: http://www.developerfusion.com/tools/convert/csharp-to-vb/

    []s@


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.com/
    Twitter: @ferhenrique

    • Marcado como Resposta rafa-martin segunda-feira, 14 de maio de 2012 22:51
    segunda-feira, 14 de maio de 2012 20:31

Todas as Respostas

  • Olá Rafa,

    O tipo tem que se anônimo.

    Deve ficar algo como:

    Dim Students() As Student = {
        New Student With {.Name = "Bob", .GPA = 3.5},
        New Student With {.Name = "Sue", .GPA = 4.0},
        New Student With {.Name = "Joe", .GPA = 1.9}
    } 

    []s!


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.com/
    Twitter: @ferhenrique

    segunda-feira, 14 de maio de 2012 20:08
  • não deu certo está dando erro.

    vale lembrar estou criando minha lista dessa forma: Dim data As List(Of Object) = New List(Of Object)

    segunda-feira, 14 de maio de 2012 20:14
  • Olá Rafa,

    Poderia postar seu código?

    Estou fazendo assim e esta funcionando:

            Dim data As List(Of Object) = New List(Of Object)
    
            data.Add(New Student With {.Name = "FH", .Age = 23})

    []s!


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.com/
    Twitter: @ferhenrique

    segunda-feira, 14 de maio de 2012 20:20
  • Talvez este link ajude:

    http://beyondrelational.com/modules/2/blogs/61/posts/11203/anonymous-types-in-c-or-vb-net.aspx

    []s!


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.com/
    Twitter: @ferhenrique

    segunda-feira, 14 de maio de 2012 20:25
  • eu tenho isso aqui em c#:

    List<object> data = new List<object>();
    data.Add(new
                            {
                                ID = Convert.ToInt32(reader["COD_PRODUTO"].ToString()),
                                Name = reader["COD_PRODUTO"].ToString(),
                                Name1 = reader["COD_INDEXADOR"].ToString(),
                                Name2 = reader["NOM_PRODUTO"].ToString(),
                                Name3 = reader["NOM_SISTEMA"].ToString(),
                                Name4 = reader["COD_SISTEMA"].ToString(),
                                Name5 = reader["MTM"].ToString(),
                                Name6 = reader["ACCRUAL"].ToString(),
                                Name7 = reader["DV01"].ToString(),
                                Name8 = reader["PRAZO_MEDIO"].ToString(),
                                Name9 = reader["DATA_BASE"].ToString(),
                                Name10 = reader["VALOR_TIR"].ToString(),
                                Name11 = reader["STATUS_MTM"].ToString(),
                                Name12 = reader["STATUS_DV01"].ToString(),
                                Name13 = reader["STATUS_PMP"].ToString()
                            });

    eu quero transformar esse código c# em vb.net
    segunda-feira, 14 de maio de 2012 20:26
  • Veja se isto resolve:

    Dim data As New List(Of Object)()
    data.Add(New With { _
    	Key .ID = Convert.ToInt32(reader("COD_PRODUTO").ToString()), _
    	Key .Name = reader("COD_PRODUTO").ToString(), _
    	Key .Name1 = reader("COD_INDEXADOR").ToString(), _
    	Key .Name2 = reader("NOM_PRODUTO").ToString(), _
    	Key .Name3 = reader("NOM_SISTEMA").ToString(), _
    	Key .Name4 = reader("COD_SISTEMA").ToString(), _
    	Key .Name5 = reader("MTM").ToString(), _
    	Key .Name6 = reader("ACCRUAL").ToString(), _
    	Key .Name7 = reader("DV01").ToString(), _
    	Key .Name8 = reader("PRAZO_MEDIO").ToString(), _
    	Key .Name9 = reader("DATA_BASE").ToString(), _
    	Key .Name10 = reader("VALOR_TIR").ToString(), _
    	Key .Name11 = reader("STATUS_MTM").ToString(), _
    	Key .Name12 = reader("STATUS_DV01").ToString(), _
    	Key .Name13 = reader("STATUS_PMP").ToString() _
    })

    Eu usei este site: http://www.developerfusion.com/tools/convert/csharp-to-vb/

    []s@


    Fernando Henrique Inocêncio Borba Ferreira
    while(alive){ this.WriteCode(); }
    Blog: http://ferhenriquef.com/
    Twitter: @ferhenrique

    • Marcado como Resposta rafa-martin segunda-feira, 14 de maio de 2012 22:51
    segunda-feira, 14 de maio de 2012 20:31
  • funfou.

    Valeu!

    segunda-feira, 14 de maio de 2012 22:51