Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
List box won't increment to store data into a table to print
I have a list box that displays data when a user clicks on a client to get the related appraisers. The list box stores the data fine, but when I try to print out the data in the list box with the following code:
if thisform.selected.ListCount > 0
sele availappraisers
delete all
=cursorsetprop('Buffering', 5, 'availappraisers')
lock()
thisform.selected.ListIndex = 0
for endoflist = 1 to thisform.selected.ListCount
thisform.selected.ListIndex = thisform.selected.ListIndex + 1
append blank
repl appraiser with thisform.selected.list(thisform.selected.ListIndex)
endfor
=tableupdate(.T., .t., 'availappraisers')
unlock
go top
deactivate window lookatappraiser
REPORT FORM availappraisers.frx TO PRINTER
_SCREEN.CLS
activate window lookatappraiser
thisform.refresh
else
cMessageTitle = ''
cMessageText = 'There are no appraisers listed for the client you have selected.'
nDialogType = 0 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
endif
thisform.refresh
instead of all the records being stored in the table, some of the records are duplicated and some of the records at the end of the list box are not even inserted. Is there a way to ensure that all records are stored in the table so that the report can display correct information?
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