1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

fechar

Discussão em 'Programação' iniciada por Ruben_Barbosa, 7 de Outubro de 2008. (Respostas: 3; Visualizações: 608)

  1. Ruben_Barbosa

    Ruben_Barbosa Power Member

    close
     
    Última edição: 10 de Dezembro de 2008
  2. [C4]

    [C4] Power Member

    Nao será dsAS400.Fields em vez de ds.Fields?
     
  3. [C4]

    [C4] Power Member

    o ds presumo que seja um DataSet que nao tem comando SQL associado.
    estas a abrir o dsAS400 e depois a tentar ir buscar valores ao ds.
    Ou isso ou ds.Fields("CTSTKY") = DBNull.Value ou mesmo null(Empty em vb)
     
    Última edição: 7 de Outubro de 2008
  4. [C4]

    [C4] Power Member

    Troca o teu codigo dentro do ciclo while por este e ve se o resultado é o mesmo
    Código:
    'CONVERTER OS BYTES
    
                Dim ascii As Encoding = Encoding.GetEncoding("IBM285")
    
                Dim asciiChars(ascii.GetCharCount(dsAS400.Fields("CTSTKY").Value, 0, dsAS400.Fields("CTSTKY").Value.Length)) As Char
                ascii.GetChars(dsAS400.Fields("CTSTKY").Value, 0, dsAS400.Fields("CTSTKY").Value.Length, asciiChars, 0)
                Dim artigo As New String(asciiChars)
    
                Dim ascii2 As Encoding = Encoding.GetEncoding("IBM285")
    
                Dim asciiChars2(ascii2.GetCharCount(dsAS400.Fields("CTTX40").Value, 0, dsAS400.Fields("CTTX40").Value.Length)) As Char
                ascii.GetChars(dsAS400.Fields("CTTX40").Value, 0, dsAS400.Fields("CTTX40").Value.Length, asciiChars2, 0)
                Dim artigo2 As New String(asciiChars)
    
                Combo2(2).Items.Add(artigo & vbTab & artigo2)
                dsAS400.MoveNext()
    
     

Partilhar esta Página