How to Create an Array of Structures in Visual FoxPro

 Last reviewed: August 1, 1995
Article ID: Q133455
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, version 3.0

SUMMARY

User-defined structures (similar to user-defined types in Visual Basic or structs in C) are possible by using the CUSTOM Class. This article shows by example how to create a user-defined array of structures.

MORE INFORMATION

The following code sample illustrates how to define an array of structures. The structure itself is defined in a custom class called sMyStruct. The code reads the values from the Products table and populates the array of structures.

Code Sample

OPEN DATABASE C:\VFP\SAMPLES\DATA\TESTDATA.DBC USE C:\VFP\SAMPLES\DATA\PRODUCTS.DBF 

GO TOP      && Start from the top
PUBLIC DIMENSION oMyStruct(10)   && Define the array of structures
FOR i=1 to 10 
   oMyStruct(i)=CREATEOBJECT("sMyStruct")
   oMyStruct(i).Product_Name=PRODUCTS.Prod_name
   oMyStruct(i).Engineer_Name=PRODUCTS.Eng_name
   oMyStruct(i).Cost_Per_Unit=PRODUCTS.Unit_cost
   ?oMyStruct(i).Product_Name
   ?oMyStruct(i).Engineer_Name
   ?oMyStruct(i).Cost_Per_Unit
   SKIP
ENDFOR

DEFINE CLASS sMyStruct AS CUSTOM 

   Product_Name=''
   Engineer_Name=''
   Cost_Per_Unit=0
ENDDEFINE

Additional reference words: 3.00 struct VB VFoxWin
KBCategory: kbprg kbcode
KBSubcategory: FxprgGeneral

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: August 1, 1995
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.