Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Read/Execute forms method at design time
Message
From
01/07/2003 15:47:04
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Read/Execute forms method at design time
Miscellaneous
Thread ID:
00805802
Message ID:
00805802
Views:
60
Hi All

I have recently downloaded the ISX program written by Christof Lange. I think it's a very nice piece of work! However, I have a view questions (I am using Vfp6Sp5):

- I've noticed, that in order for the dbf-fields to be collected the table has to be opened. Since I have some forms with plenty of tables, and I am to lazy to open them every time I work on those forms, I was wondering if there is a different way to do this.

I went through the code of the ISX.prg and found the place where the fields are gathered, but since I could not find an identifier specifying the source object I have difficulty opening the table only if it really is a table. Here is what I tried to do (but it does not work satisfactory):
* *** starting at line 474
*====================================================================
* SW: Fills an array with all Fields for the cursor typed in.
* Returns the number of Fields. The cursor has to be open to work
*====================================================================
Procedure CP_Tables
Lparameters toISX
   LOCAL lnCount, lcName, TblWasUsed, OldSelect
   lcName = JustStem(toISX.cEntity)
	
   * *** begin
   if ;
         !Used(m.lcName) .and. ;
         Occurs(".",toISX.cEntity)==0 .and. ;
         !upper(toISX.cEntity) == "M" .and. ;
         File(toISX.cEntity) = .t.
      OldSelect = select()
      sele 0
      use (toISX.cEntity)
      TblWasUsed = .f.
   else
      TblWasUsed = .t.
   endif
   * *** end
	
   If Occurs(".",toISX.cEntity)==0 AND USED(m.lcName)
      toISX.nCount = FCOUNT(m.lcName)
      DIMENSION toISX.aList[toISX.nCount]
      FOR m.lnCount = 1 TO toISX.nCount
         toISX.aList[m.lnCount] = PROPER(FIELD(m.lnCount, m.lcName))
      NEXT
   ENDIF
	
   * *** begin
   if TblWasUsed = .f.
      use in (m.lcName)
      sele (OldSelect)
   endif
   * *** end
EndProc 
- I saw that there is a reference to Objects and wonder if ISX is picking up properties/methods from objects? If it is, they will not come up on my computer.


Thanks for any help/suggestions in advance.
Next
Reply
Map
View

Click here to load this message in the networking platform