[quote]taifu945老师好,你那段请假代码中， USE [color=FF0000]档案人员表[/color] ALIAS Daryb
提示找不到文件，本人才疏学浅，测试了一晚上也没法成功。 

套用4个人的更是无法做到。我以为三个和四个一样呢。现在我也做了一个表文件，。。。希望老师教我这个四个人可以请假的。谢谢 USE 档案人员表 ALIAS Daryb[/quote]

呵呵，我来晚了。“档案人员表”是一个泛指，就是指你存放这些档案人员的表文件(.DBF文件)。比如：你的档案人员表文件名是“档案员.DBF”，那么，上面这句话就应该写成“USE 档案员 ALIAS Daryb”(不含两侧双引号)。如果“档案员.DBF”不在当前目录下，则文件名前面还要加上路径。比如：这个表文件在C:\RR文件夹中，那么这句话就应该写成“USE C:\RR\档案员 ALIAS Daryb”，同样不含两侧双引号。如果对USE语句有疑问，可以去翻阅有关FoxPro命令的帮助资料。
另外，做个小广告，我目前正在写一本《FoxPro 9.0入门手册》，尚未写完。有兴趣的话告诉我，我可以无偿发给你看。这本东西不会出版，只是把自己用FoxPro的一些经验记录下来，工作中翻阅一下而已。内容不深，很适合入门选手看。

另外，我要说一下：4个人以上的档案员最好放在一个正式表文件中(.DBF文件)。我在6楼的代码可以适用于任何多的人数，但如声明中所说，至少要保证其中有一个的“请假”字段为.F.，也就是说不能全请假。[em2]

FORM.INIT
THISFORM.ADDPROPERTY("JS",0) &&为表单增加一个属性，用于保存COMMAND1的单击次数

COMMAND1.CLICK
THISFORM.JS=THISFORM.JS+1
SELECT * FROM 档案人员表 WHERE 请假=.T. INTO CURSOR LS
SELECT LS
IF THISFORM.JS<=RECCOUNT()
   GO THISFORM.JS
   THISFORM.TEXT1.VALUE=档案员
   IF THISFORM.JS=RECCOUNT()
      GO TOP
      THISFORM.JS=0
   ENDIF
ENDIF
THISFORM.REFRESH