Stefan5627
Programmer
- i want to show the user a report,
- then (while the report is still showing) i want to ask the user a question
- depending on the answer i want to adjust the report
i use the underlying code
the problem is that the second time i show the report (with the condition)
it shows the same as the first time (without the condition)
i use vfp7 sp1
the underlying code is just an example, the condition used for the
report can be anything
can anyone solve this problem for me?
tia
LOCAL oform, odefForm as Form
oform = createobject("form"
oform.WindowState = 2
oform.Show()
select some_table
go top
report form testreport window (oform.Name) noconsole preview nowait
answer = messagebox( "question?", 4+32, ""
oform.release()
select some_table
go top
odefForm = createobject("form"
odefForm.WindowState = 2
odefForm.Show()
IF answer == 6
report form testreport window (odefForm.Name) ;
noconsole preview for recno() < 2
ELSE
report form testreport window (odefForm.Name) ;
noconsole preview for recno() > 2
ENDIF
- then (while the report is still showing) i want to ask the user a question
- depending on the answer i want to adjust the report
i use the underlying code
the problem is that the second time i show the report (with the condition)
it shows the same as the first time (without the condition)
i use vfp7 sp1
the underlying code is just an example, the condition used for the
report can be anything
can anyone solve this problem for me?
tia
LOCAL oform, odefForm as Form
oform = createobject("form"
oform.WindowState = 2
oform.Show()
select some_table
go top
report form testreport window (oform.Name) noconsole preview nowait
answer = messagebox( "question?", 4+32, ""
oform.release()
select some_table
go top
odefForm = createobject("form"
odefForm.WindowState = 2
odefForm.Show()
IF answer == 6
report form testreport window (odefForm.Name) ;
noconsole preview for recno() < 2
ELSE
report form testreport window (odefForm.Name) ;
noconsole preview for recno() > 2
ENDIF