哈...我就是要的这个,十分感激,我会认真领会'代码精神'的.
虎哥的VFP的功力十分了得,在下心服,口服,佩服,佩服....另外多句嘴,能否在你的博客里看到更多的关于如何学习VFP的心得经验吗?我总觉得书本与实战之间总有一段距离,无法跨越,....幸好有你们这样的版主作桥渠,...庆幸,庆幸..
祝:中秋快乐...............:)

哈哈，谢谢您的抬举。

在我的博客里，我讲了一个故事，"汤司令、老虎与狐狸"，要学就学汤司令的精神，学VFP到了眼睛近视的程度。我的这个兄弟跟着我学VFP真的很苦。

找个时间，写点学习VFP的东西，一直是放在心里的一个想法，但是总是疏于动笔。看看吧。

中秋快乐!

对以上代码本人还有一点不明:
1,在哪里添加自定义变量.为什么我用Store 1to quit_xz时,提示没有nPapges.
2,在代码里，两个".."点是什么意思呀．．起什么作用呀．．
　　　　　　　　　谢谢．．．有没有解决这个问题上的细详说明．．

在表单上添加自定义变量,与在表单上添加自定义方法一样。而程序中的两个句号..中第一个用于宏替换(与&连用),第2个用于区别开控件的从属关系.

虎哥,实在有点开不了口了....对以上9楼的代码还是看不太懂..能不能说一说这个程序的运行过程呀
我主要是'SKIP (THISFORM.nPages-1)*6+nCnt-1'不太明白是什么意思...按理后应该是个数值的,表示跳到记录几,可是'Thisform.npages-1'是什么意思呢?变量nPagesr 的初值是1,就后不就成了'Thisform.0'了吗?这是个控件呀,还是别的什么意思....这句运行时出错说'无效的下标引用',怎么回事呀...
另外抓图后的文件在哪呀....谢谢

9楼程序的运行过程

(1)首先运行表单初始化过程THISFORM.INIT()。这里做3件事情:一是关闭所有数据文件,二是打开题库文件TIKU.DBF,三是运行THISFORM.REF()自定义过程

(2)在运行THISFORM.REF()自定义过程的时候，由于要同时将6组题显示在表单上，因此设置循环语句(循环6次)。将循环变量nCnt由数值型改写为字符型cCnt以便实现宏替换；将记录指针指向第THISFORM.nPages页的第nCnt条记录，本来这个记录如果存在的话，使用GO (THISFORM.nPages-1)*6+nCnt就可以了，但是若该记录不存在则该语句会产生错误，故改用GO TOP以后SKIP相应位置，如我想将记录指针指向第2条记录，则直接使用'GO 2'就可以了，但'GO TOP'以后，'SKIP 1'也能达到相应记录位置，而且记录指针超过总记录数的话，也仅仅是EOF()为真而已，不会产生错误；随后就是当EOF()为真时，隐藏以后的标签和选项组，而当EOF()不为真时，正常显示这些控件及其属性。

(3)用户可以在任意时候按'下一个'命令按钮，则该命令按钮的click里面的代码被运行。既然是要求显示下一页，则应当修改页号('THISFORM.nPages=...'这个语句)和显示新的一页的内容('THISFORM.REF'这个语句)。我将'下一页'做成循环的按钮,若有下一页的话，则正常修改nPages的值，使之增加1，若不存在下一页,则回到第1页。其中nTotalPages计算总页数

nTotalPages=IIF(RECCOUNT()=0,0,INT((RECCOUNT()-1)/6)+1)
THISFORM.nPages=IIF(THISFORM.nPages>=nTotalPages,1,THISFORM.nPages+1)
THISFORM.REF
THISFORM.REF
虎哥,对以上内容还是不太明白.主要是IIF()的使用,它是什么用的呀,书上只是说返回逻辑表达式两个值中的一个,怎么用不太清楚.另外关于自定义变量nPages是不是就可以认为它只是Thisformr的一个方法呢?能否请虎哥对以上代码进行一下详细的说明...谢谢

nPages是我添加在表单中的一个变量,因此它与表单中其他变量(应该叫属性)一样使用,比如THISFORM.WIDTH表是本表单的宽度,而THISFORM.nPages则表是本表单的nPages值(它的含义只有用户知道,表单本身不对它赋予别的特定含义)。其实,不用这么麻烦的，你可以不用在表单中新建一个属性,而仅仅在初始化部分对nPages进行定义就可以了(PUBLIC nPages).

至于IIF就更简单了。由于在"下一个"命令按钮的CLICK过程里面,我要求程序计算总页数nTotalPages,并实现当前页号nPages的修改,而修改该当前页号的规则是:(1)正常情况下,当前页号增加1;(2)当页号为最后一页的时候,我要求回到第1页,因此语句THISFORM.nPages=IIF(THISFORM.nPages>=nTotalPages,1,THISFORM.nPages+1)就是用来实现这个设计思路的。即当当前页号(THISFORM.nPages)大于或等于总页数(nTotalPages)的时候，取1;否则正常增加1(THISFORM.nPages+1).它实际上就相当于下面的程序
IF THISFORM.nPages>=nTotalPages
THISFORM.nPages=1
ELSE
THISFORM.nPages=THISFORM.nPages+1
ENDIF

谢谢虎哥,为什么你不早说.我花了两天才搞懂,不过我又学会了许多东西,严重感谢!!!!!!!!