在用VFP进行程序设计时，不可避免地涉及到数据表和自由表本身的操作，例如我们至少需要随时知道这些数据表的结构，尽管这些数据表是我们自己设计的，但如果文件多了，时间长了，就完全有可能记不清楚，特别是分析别人的程序时，这个问题就显得特别突出，为此，我们可以设计一个程序来解决这个问题，由于这类程序不依赖于某一具体环境，并具有很强的独立性和灵活性，因此我们有必要将它设计成一个自定义类，从而一劳永逸地使用它： 

     一.新建一个类 

　　打开"文件/新建.../类",类名为list_stru,派生于"Container"(容器),在"存储于..."中选择一个适当的目录来保存这个自定义类.然后单击"确定".(如图所示） 

     二.设置自定义类list_stru的属性 

　　进入类设计器后,接着设置Container的属性:BackStyle为0(透明),BorderWidth为2,SpecialEffect为0(凹起) 

　　三.设置显示文件名的列表框对象(LIST1) 

　　添加一个名为list1的list对象,该对象用来选择需显示结构的数据表文件名. 
　　再按如下方法设置该对象的一些属性: 
　　(1)RowSourceType=7 (文件) 
　　即该对象的内容来源于磁盘文件 
　　(2)RowSource=*.dbf 
　　只显示后缀名为DBF的文件 
　　(3)编写当list1中的项目被选择后所要发生的代码,这可以通过InteractiveChange事件来实现: 
　　InteractiveChange Event 
　　Local curpath && 定义一变量 
　　curpath=this.list(2) && 返回所选取的文件的路径 
　　set defa to (curpath) && 指定默认路径 
　　if .not.’[’$this.value && 如果所选择的项目是一个目录(即包含有’[’字符)则不执行下列操作 
　　use (this.value) 
　　this.parent.list2.rowsourcetype=0 
　　this.parent.list2.clear this.parent.list2.rowsourcetype=8 
　　this.parent.list2.rowsource=substr(this.value,1,len(this.value)-4) && 用SUBSTR函数取得完整文件名 
　　this.parent.list2.listindex=1 
　　endif 

下面对该程序作一些简要说明: 

　　A.将LIST对象的RowSourceType属性为7(文件),显示磁盘文件时,第一列为盘符,第二列才为盘符和路径,因此需用this.list(2)来返回完整的文件路径,然后用Set defa to (curpath)来转换到相应的路径,注意此处必须用名称表达式()将curpath括起来,它相当于宏代换&,后面的use (this.value)语句也是这个意思 

　　B.在操作时我们可能要不断地选择文件名并在list2中显示其结构,因此需要不断地更新list2的RowSource内容,这是通过this.parent.list2.clear来实现的,但是在使用clear方法前,必须将RowSourceType属性设置为0 (无),否则是无效操作,清除内容后,再将RowSourceType属性设置为8(结构)即可 

　　C.在设置了RowSourceType属性后,再用RowSource属性定义相应源文件名称,即substr(this.value,1,len(this.value)-4)语句 

　　四.添加显示文件结构的列表框对象(LIST2) 

　　添加名为LIST2的列表框对象,用于显示文件结构,但是不必再设置它的属性,因为其RowSourceType和RowSource属性已经在LIST1的InteractiveChange事件中定义了。 

     最后,我们再加上相应的说明性的标签对象和其它适当的shape对象来美化界面,保存起来,这个类就可以使用了,另外,以上程序中包括了一些有关文件操作和列表框(组合框)对象的关键用法,如果能够加以灵活使用,对以后的程序设计会有很大的帮助