Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Enumerating Data Sessions?
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00660418
Message ID:
00660463
Views:
9
And there's no way to do it in VFP6 without trapping for the error? I know i could just trap the error, but I'd prefer a more elegant method if one exists.

>There is ASessions() in VFP7. In VFP6 I did:
>
>
>PROCEDURE ReallyCloseAllData
>LOCAL lc_WasError, ll_GoOn, ln_Tables,  ln_i
>local array la_x[1,2]
>
>lc_WasError = on("ERROR")
>
>on error ll_GoOn = .F.
>
>ll_GoOn = .T.
>
>set datasession to
>
>for ln_i = 1 to 999
>    ln_Tables = aused(la_x, ln_i)
>
>    if ! ll_GoOn
>        exit
>    endif
>    set datasession to (ln_i)
>    close data all
>    close data
>endfor &&* ln_i = 1 to 10
>
>on error &lc_WasError
>
>set datasession to
>
>ENDPROC
>
>
Scott
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform