General information
Title:
End of File Encountered
I am sorry. This only happens when I try to print the first report.
Can some one tell me why I get the message End of File Encountered when x = 2?
lParam what_temp_dwgno, what_temp_dwgrev
Public shy_no
Select * From changetable Where AllT(dmdrno) == AllT(what_temp_dwgno) And AllT(dmpchg) == AllT(what_temp_dwgrev) InTo Cursor mydcntemp
Select * From mydcntemp, newdatatbl Where AllT(mydcntemp.dmdrno)+AllT(mydcntemp.dmpchg) == AllT(newdatatbl.dwgno) InTo Cursor mydcngraphic
Use DBF("mydcngraphic") Again Alias mydcnC In 0
Select mydcnC
For x = 1 To mydcnC.eosht
If x > 1 Then
temp_name = "mydcngraphic.sorfile"+AllT(Str(x))
shy_no = x
Else
temp_name = "mydcngraphic.sorfile"
shy_no = x
EndIf
Append General mydcnC.sorgen From AllT(Eval(temp_name))
If x = 1 Then
Report Form test_dcnreport.frx Preview
Else
Report Form test_dcnreport2.frx Preview
EndIf
Next x
Use In mydcnC
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only