Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Line is to long
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Title:
Miscellaneous
Thread ID:
00834272
Message ID:
00835380
Views:
27
This message has been marked as the solution to the initial question of the thread.
Oi Thiago;
>
thisform.lstseq.rowsource = ""
SELECT TRANSFORM(sequ_che,'@L 9-99')+' - '+STR(banc_che,3,0)+' - '+STR(nume_che,6,0)+' - ';
			   +TRANSFORM(valo_che,'99,999.99')+' -  '+DTOC(data_che)+'  -   '+STR(alin_che,2,0)+;
			   '   - '+IIF(situ_che=1,'Aberto ',IIF(situ_che=2,'Quitado','Perda  '))+'  -  '+DTOC(dtre_che);
			   +'  -  '+IIF(prot_che=.t.,'P',' ') AS cheque ;
       FROM cheques_devolvidos ;
       WHERE ncon_che = .txtncon_che.value ;
       ORDER BY sequ_che ;
       INTO CURSOR ler_che
		
thisform..lstseq.rowsource = "ler_che"
Ou ainda voce pode utilizar:
i1=0
with thisform..lstseq 
    scan
        i1=i1+1
        .additem(TRANSFORM(sequ_che,'@L 9-99'))
        .listitem(i1, 2) = STR(banc_che,3,0)
        .listitem(i1, 3) = STR(nume_che,6,0)
        *....
        *
    endscan
endwith
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Reply
Map
View

Click here to load this message in the networking platform