Article ID: 160916
Article Last Modified on 7/1/2004
* Place this in the DataEnvironment.BeforeOpenTables() code
LOCAL lcDatapath, lnBufferMode, lnI, lcI
* This could be in a format of "\\<unc path name>\share\" or
* "<drive>:\directory\"
lcDatapath = "C:\myDataDir\"
lnBufferMode = 5
FOR lnI = 1 TO 10 && Assume only 10 or less Cursor objects
* This assumes that the cursors have been left with the default names
* in the format of Cursor1, Cursor2, etc.
IF TYPE("this.cursor"+ALLTR(STR(lnI)))=="O" && Is this cursor an object?
lcI=ALLTR(STR(lnI)) && Convert the counter to a string
* Macro substitute the string value into cursorname to set property
THIS.CURSOR&lcI..DATABASE=(lcDatapath)+'mydbc.dbc'
* You may also set other properties for cursors here
THIS.CURSOR&lcI..BUFFERMODEOVERRIDE=lnBufferMode
ENDIF
ENDFOR
Keywords: kbhowto kbdesigner KB160916