VFP index tag มีอยู่จริงหรือเปล่า?
ไปเจอมาจากเว็บ foxite.com ครับ เอามาเก็บไว้ก่อน ส่วนจะใช้ได้ผลยังไงหรือไม่นั้น..แหะๆลองแล้วบอกกันมั่งนะครับ ฮี่ฮี่ฮี่
How can I check if a given file has an index available for use?
How can I check if a given file has an index available for use?
* Passed the name of an index tag * returns true if it is a tag for the specified table. * Uses table in the current work area if no table name is passed. FUNCTION IsTag( tcTagName, tcTable ) LOCAL ARRAY laTags[1] LOCAL llRetVal *** Did we get a tag name? IF TYPE( 'tcTagName' ) # 'C' *** Error - must pass a Tag Name ERROR '9000: Must Pass a Tag Name when calling ISTAG()' RETURN .F. ENDIF *** How about a table alias? IF TYPE( 'tcTable' ) = 'C' AND ! EMPTY( tcTable ) *** Get all open indexes for the specified table ATagInfo( laTags, "", tcTable ) ELSE *** Get all open indexes for the current table ATagInfo( laTags, "" ) ENDIF *** Do a Case Insensitive, Exact=ON, Scan of the first column of array *** Return Whether the Tag is Found or not RETURN ( ASCAN( laTags, tcTagName, -1, -1, 1, 15 ) > 0 ) ENDFUNC
Regards, Marcia G. Akins Tightline Computers, Inc.
ความคิดเห็น
แสดงความคิดเห็น