>use (_samples+'data\customer') in 0 Shared Alias Table1 >Create Cursor Table2 (p_name c(20)) > >? IsTable("table1") && Return .T. >? IsTable("table2") && Return .F. > >Procedure IsTable(tcTableName) > *** What is the function? >Endpr >>
(1) IsTable = !empty(cursorgetprop('DataBase', m._alias)) and inlist(Cursorgetprop('SourceType', m._alias), DB_SRCTABLE) (2) IsView = !empty(cursorgetprop('DataBase', m._alias)) and !inlist(Cursorgetprop('SourceType', m._alias), DB_SRCTABLE) (3) otherwise IsCursorps: justext(dbf()) returns TMP for both a cursor and a view
&& excerpt form foxpro.h *-- Source Types for CursorGetProp() #DEFINE DB_SRCLOCALVIEW 1 #DEFINE DB_SRCREMOTEVIEW 2 #DEFINE DB_SRCTABLE 3