Preciso em uma seção detalhes, carregar dois campos de uma tabela, "CODIGO","DESCRIÇÃO", mas preciso colocar em 3 colunas, ex:

 

01-AAAAAA        04-DDDDDD        07-GGGGGG

02-BBBBBBB        05-EEEEEE         08-HHHHHH

03-CCCCCC        06-FFFFFF         09-IIIIIIIIIII

 

Tem jeito ????

essa terceira coluna, de onde viria a informação?

é uma unica tabela , ai no ex:, ela teria 9 registros, ok ?

acho que voce terá que tratar os dados antes de enviar ao crystal, provalvelmente garavdo uma tabela p/impressão no exemplo abaixo eu gravo uma tabela que irá conter 3 colunas com as informações, eu a utilizo na impressão do 'conhecimento' para a transportadorda assinar:

    Set Rc_Temp = Base_Relato.OpenRecordset("Conteudo.Texto1, Conteudo.Texto2, Conteudo.Texto3, Conteudo.Texto4, Conteudo.Valor1, Conteudo.Valor2 FROM Conteudo ORDER BY Conteudo.Texto4, Conteudo.Texto1;")
    Set Rc_Temp1 = Base_Relato.OpenRecordset("Conteudo1")
    If Rc_Temp.RecordCount <> 0 Then
        ult = Empty
        Rc_Temp.MoveMin
        Do While Not Rc_Temp.EOF
            If ult <> Rc_Temp("Texto4") Then
                X = 0
                Rc_Temp1.AddNew
                Rc_Temp1("Texto2") = Rc_Temp("Texto2")
                Rc_Temp1("Texto3") = Rc_Temp("Texto3")
                Rc_Temp1("Texto4") = Rc_Temp("Texto4")
                Rc_Temp1("Texto5") = Format(Val(Rc_Temp("Texto1")), "000000")
                Rc_Temp1("Texto6") = Format(Rc_Temp("valor1"), 0)
                Rc_Temp1("Valor1") = Rc_Temp("Valor2")
                Rc_Temp1.Update
                ult = Rc_Temp("Texto4")
            Else
                X = X + 1
                If X = 1 Then
                    Rc_Temp1.MoveMax
                    Rc_Temp1.Edit
                    Rc_Temp1("Texto7") = Format(Val(Rc_Temp("Texto1")), "000000")
                    Rc_Temp1("Texto8") = Format(Rc_Temp("valor1"), 0)
                    Rc_Temp1("Valor2") = Rc_Temp("Valor2")
                    Rc_Temp1.Update
                    ult = Rc_Temp("Texto4")
                Else
                    Rc_Temp1.MoveMax
                    Rc_Temp1.Edit
                    Rc_Temp1("Texto9") = Format(Val(Rc_Temp("Texto1")), "000000")
                    Rc_Temp1("Texto10") = Format(Rc_Temp("valor1"), 0)
                    Rc_Temp1("Valor3") = Rc_Temp("Valor2")
                    Rc_Temp1.Update
                    ult = Empty
                End If
            End If
            Rc_Temp.MoveNext
        Loop
    End If
 

ESPERO QUE TE AJUDE, PELO MENOS Á LÓGICA DA GRAVAÇÃO JÁ ESTA DESENVOLVIDA

Daniel, valeu pela ajuda, mas eu fiz através de fórmulas, no meu caso também é p/ transportadora, mas é a carta de correção.