Information générale
Titre:
Lineing up Text in a string
Versions des environnements
Network:
Windows 2000 Server
I am using the following to build a string:
tsoVars.getMiscString = ""
getMiscDataString = "Select * From webprddt6.tsotagtblm Where cono = '" + tsoVars.conumber + "'"
IF SQLEXEC(tsoVARS.as400con, getMiscDataString, "getMiscDataQuery") <> -1 Then
IF RECCOUNT("getMiscDataQuery") > 0 Then
SCAN
tsoVars.getMiscString = ALLTRIM(tsoVars.getMiscString) + PADR(ALLTRIM(getMiscDataQuery.partno),25) + " " + PADR(ALLTRIM(STRTRAN(getMiscDataQuery.seatdesc,","," ")),75) + " " + ALLTRIM(STR(getMiscDataQuery.partqty)) + ","
EndScan
tsoVars.getMiscString = SUBSTR(tsoVars.getMiscString,1,LEN(tsoVars.getMiscString)-1)
tsoVars.getMiscString = STRTRAN(tsoVars.getMiscString,",",CHR(13)+CHR(10))
ELSE
*Return "Unknown"
EndIf
Else
If Aerror(odbcerrormsg) > 0 Then
MessageBox(odbcerrormsg(2))
ENDIF
*Return "Unknown"
ENDIF
It gives me a string:
854121-401 Part1 3
854121-403S Part2 3
854121-1 Part3 3
How can I get the parts of the string to line up together?
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement