fechar

[Ruben_Barbosa]

close

 

[[C4]]

Nao será dsAS400.Fields em vez de ds.Fields?

 

[[C4]]

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)

 

[[C4]]

Troca o teu codigo dentro do ciclo while por este e ve se o resultado é o mesmo

'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()