... Select mydcnC GO TOP Append General ... ...>Sergey,
>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 > ? x > Select mydcnC > Append General mydcnC.sorgen From AllT(Eval(temp_name)) > Report Form dcn_test_report.frx NoConsole to Printer &&Preview >Next x >Use In mydcnC