我想用DBF格式的文件筛选数据，需要用到VFP的语句，如下该怎么做？

vfp的DBF格式的文件筛选数据，方式有两种，一种是 ...for 条件，一种是select ...form SQL语句，请参照以下语法：select - sql 命令从一个或多个表中检索数据。语法SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]][Alias.] Select_Item [AS Column_Name][, [Alias.] Select_Item [AS Column_Name] ...]FROM [FORCE][DatabaseName!]Table [[AS] Local_Alias][[INNER | LEFT [OUTER] | RIGHT [OUTER] | FULL [OUTER] JOINDatabaseName!]Table [[AS] Local_Alias][ON JoinCondition …][[INTO Destination]| [TO FILE FileName [ADDITIVE] | TO PRINTER [PROMPT]| TO SCREEN]][PREFERENCE PreferenceName][NOCONSOLE][PLAIN][NOWAIT][WHERE JoinCondition [AND JoinCondition ...][AND | OR FilterCondition [AND | OR FilterCondition ...]]][GROUP BY GroupColumn [, GroupColumn ...]][HAVING FilterCondition][UNION [ALL] SELECT命令][ORDER BY Order_Item [ASC | DESC] [, Order_Item [ASC | DESC] ...]]参数SELECT在 SELECT 子句中指定在查询结果中包含的字段、常量和表达式。ALL查询结果中包含所有行 ( 包括重复值 )。ALL 是默认设置。DISTINCT在查询结果中剔除重复的行。注意每一个 SELECT 子句只能使用一次 DISTINCT。TOP nExpr [PERCENT]在符合查询条件的所有记录中，选取指定数量或百分比的记录。TOP 子句必须与 ORDER BY 子句同时使用。ORDER BY 子句指定查询结果中包含的列上由Top字句决定的行数， TOP 子句根据此排序选定最开始的 nExpr个或 nExpr% 的记录。您可以指定选取 1 到 32767 个记录。使用 ORDER BY 子句指定的字段进行排序，会产生并列的情况，比如，可能有多个记录，它们在选定的字段上相同；所以，如果您指定 nExpr 为 10，在查询结果中可能多于 10 个记录，因为可能有几个记录位置并列。如果包含 PERCENT 关键字指定查询结果中的记录数，得到记录数的可能是小数，这时进行取整。包含 PERCENT 关键字时，nExpr 的范围是 0.01 到 99.99。Alias.限定匹配项的名称。 Select_Item 指定的每一项在查询结果中都生成一列。如果多个项具有相同的名称，则应在这些项名前加上表的别名和一个句点，以防止出现重复的列。Select_Item 指定包括在查询结果中的项。一个项可以是：FROM 子句所包含的表中的字段名称。一个常量，查询结果中每一行都出现这个常量值。一个表达式，可以是用户自定义函数名。AS Column_Name指定查询结果中列的标题。当 Select_Item 是一个表达式或一个字段函数时，如果要给此列取一个有含义的名称，一般可以使用这个子句。Column_Name可以是一个表达式，但不能包含那些表字段名称中不允许出现的字符(如空格)。FROM列出所有从中检索数据的表。如果没有打开表， Visual FoxPro 显示“打开”对话框以便指定文件位置。表打开以后，直到查询结束时才关闭。如果您包含 FORCE 关键字，Visual FoxPro 在建立查询时会严格按照您在FROM 子句中声明的顺序连接表；若不包含 FORCE 关键字，Visual FoxPro 会试图对查询进行优化。使用 FORCE 子句，避免了优化过程，可能加快查询执行的速度。DatabaseName!当包含表的数据库不是当前数据库时，DatabaseName! 指定这个数据库的名称。如果数据库不是当前数据库，就必须指定包含表的数据库名称。应在数据库名称之后表名之前加上感叹号(!)分隔符。[AS] Local_Alias为 Table 中的表指定一个临时名称。如果指定了本地别名，那么在整个SELECT 语句中必须都用这个别名代替表名。本地别名不影响 Visual FoxPro环境。INNER JOIN 只有在其他表中包含对应记录(一个或多个)的记录才出现在查询结果中。INNER JOIN 只有在其他表中包含对应记录(一个或多个)的记录才出现在查询结果中。LEFT [OUTER] JOIN 在查询结果中包含：JOIN 左侧表中的所有记录，以及JOIN 右侧表中匹配的记录。OUTER 关键字可被省略；包含 OUTER 强调这是一个外连接 (outer join)。RIGHT [OUTER] JOIN 在查询结果中包含：JOIN 右侧表中的所有记录，以及 JOIN 左侧表中匹配的记录。OUTER 关键字可被省略；包含 OUTER 强调这是一个外连接接 (outer join)。FULL [OUTER] JOIN 在查询结果中包含：JOIN 两侧所有的匹配记录，和不匹配的记录；包含 OUTER 强调这是一个外连接 (outer join)。ON JoinCondition 指定连接条件。INTO Destination指定在何处保存查询结果。如果在同一个查询中同时包括了 INTO 子句和 TO 子句，则 TO 子句不起作用。如果没有包括 INTO 子句，查询结果显示在“浏览”窗口中。也可以用 TO 将查询结果定向输出到打印机或文件。Destination 可以是下列子句之一：ARRAY ArrayName ，将查询结果保存到变量数组中。如果查询结果中不包含任何记录，则不创建这个数组。CURSOR CursorName将查询结果保存到临时表中。如果指定了一个已打开表的名称，则 Visual FoxPro 产生错误信息。执行完 SELECT 语句后，临时表仍然保持打开、活动但只读。一旦关闭临时表，则自动删除它。临时表作为 SORTWORK 指定驱动器上的一个临时文件存在。包含NOFILTER是为了创建一个能用在后来的询问中的指针。在Visual焖oxPro以前的版本需要一个额外的常量或表达式作为过滤器去创建一个能用在后来的询问中的指针。SELECT *, .T. FROM customers INTO CURSOR myquery包含NOFILTER能够减少询问的发生是因为临时表是建立在磁盘上的，当临时表被删除，指针就要被关闭。DBF TableName | TABLE TableName ，将查询结果保存到一个表中。如果指定的表已经打开，并且 SET SAFETY 设置为 OFF，则 Visual FoxPro 在不给出警告的情况下改写该表。如果没有指定扩展名，Visual FoxPro 指定表的扩展名是 .DBF。SELECT 语句执行结束后，表仍然保持打开活动状态。包含DATABASE DatabaseName 以指定添加了表的数据库。包含NAMELongTableName 可以为该表命一个最多可包括128个字符的并且可以在数据库中代替短名字的长名。TO FILE FileName如果命令中包括了 TO 子句，但没有包括 INTO 子句，则查询结果定向输出到名为FileName 的 ASCII 码文件、打印机或 Visual FoxPro 主窗口。ADDITIVE 把查询结果定向输出到由TO FILE FileName指定的文本文件的现存目录上。TO PRINTER [PROMPT] 使查询结果定向输出到打印机。在打印开始之前，使用可选的 PROMPT 子句显示一个对话框。您可以根据当前安装的打印机驱动程序调整打印机的设置。将 PROMPT 子句放置在紧跟 TO PRINTER 之后。TO SCREEN 使查询结果定向输出到 Visual FoxPro 主窗口或活动的用户自定义窗口中。PREFERENCE PreferenceName如果查询结果送往浏览窗口，就可以使用 PREFERENCE 保存浏览窗口的属性和选项以备后用。PREFERENCE 把特征属性或参数选项长期保存在 FOXUSER 的资源文件中，任何时侯都可以对它们进行检索。第一次执行有 PREFERENCE PreferenceName 的 SELECT 命令时创建参数选项。以后执行有相同参数选项名的 SELECT 命令时便将浏览窗口恢复到原来的参数选项状态。当浏览窗口关闭时，更新参数选项。如果您按下CTRL+Q+W 键退出“浏览”窗口，您对“浏览”窗口所做的更改不会保存到资源文件中。NOCONSOLE不显示送到文件、打印机或 Visual FoxPro 主窗口的查询结果。PLAIN防止列标题出现在显示的查询结果中。不管有无 TO 子句都可使用 PLAIN子句。如果 SELECT 语句中包括 INTO 子句，则忽略 PLAIN 子句。NOWAIT打开浏览窗口并将查询结果输出到这个窗口后继续程序的执行。程序并不等待关闭浏览窗口，而是立即执行紧接在 SELECT 语句后面的程序行。SELECT 命令中包括 TO SCREEN 可以把查询结果定向输出到 Visual FoxPro 主窗口或用户自定义窗口。如果显示时 Visual FoxPro 主窗口或用户自定义窗口中写满了一屏，就暂停输出。按任意键可以查看查询结果后面的内容。但是，如果命令中包括了NOWAIT 子句，显示查询结果时就不会暂停，等待按键，而是在 Visual FoxPro 主窗口或用户自定义窗口中连续滚过所有内容。如果命令中包含有 INTO 子句，忽略NOWAIT 子句。WHERE通知 Visual焖oxPro 在查询结果中仅包含一定数目的记录。如果要从多个表中检索数据，WHERE 子句是必需的。JoinCondition指定一个字段，该字段连接 FROM 子句中的表。如果查询中包括不止一个表，就应该为第一个表后的每一个表指定连接条件。连接多个查询条件必须使用操作符 AND。每个连接条件都有下面的形式：FieldName1 Comparison FieldName2其中 FieldName1 是一个表中的字段名，FieldName2 是另一表中的字段名，Comparison 是下表中列出的某一操作符。操作符比较关系= 相等== 完全相等LIKE SQL LIKE<>, !=, # 不相等> 大于>= 大于等于< 小于<= 小于等于对字符串使用 = 操作符时，所得结果与 SET ANSI 的设置有关。当 SET ANSI 设置为 OFF 时， Visual FoxPro 比较字符串的方式与 Xbase 的用户相同。当 SET ANSI 的设置为 ON 时， Visual FoxPro 比较字符串时遵守 ANSI 标准。有关 Visual FoxPro 字符比较方法的详细内容，请参阅 SET ANSI 和 SET EXACT。WHERE子句支持ESCAPE操作符，允许执行对包含有SELECT ?SQL %和通配符的数据的有意义的查询。ESCAPE子句允许指定一个可以看作文字字符的SELECT ?SQL通配符。 ESCAPE子句允许指定一个字符，一旦它被放到通配符字符之前，就表示这个通配符被看作一个文字字符。FilterCondition指定将包含在查询结果中记录必须符合的条件。使用 AND 或 OR 操作符，您可以包含随意数目的过滤条件。您还可以使用 NOT 操作符将逻辑表达式的值取反，或使用 EMPTY() 函数以检查空字段。FilterCondition 可以是下面示例中的任何一种形式：示例 1示例 1 显示 FieldName1 Comparison FieldName窗体中的Fliter Conditioncustomer.cust_id = orders.cust_id示例 2示例 2 显示 FieldName Comparison Expression 窗体中的Fliter Conditionpayments.amount >= 1000示例 3示例 3 显示 FieldName Comparison ALL (Subquery) 窗体中的 Fliter Condition当筛选条件包括 ALL 时，只有指定字段满足所有子查询结果后，它所在的记录才能添加到查询结果中。company < ALL ;(SELECT company FROM customer WHERE country = "UK")示例 4示例 4 显示 FieldName Comparison ANY | SOME (Subquery) 窗体中的 Fliter Condition当筛选条件包含 ANY 或 SOME 时，字段必须至少满足一个由子查询产生的值所决定的比较条件。company < ANY ;(SELECT company FROM customer WHERE country = "UK")示例 5示例 5 显示 FieldName [NOT] BETWEEN Start_Range AND End_Range 窗体中的Fliter Condition该示例检查字段中的值是否在指定范围内。customer.postalcode BETWEEN 90000 AND 99999示例 6示例 6 显示 [NOT] EXISTS (Subquery) 窗体中的 Fliter Condition该示例检查是否至少有一行满足子查询中的条件。当筛选条件包括 EXISTS 时，只要子查询不为空集，筛选的条件就为“真”(.T.)。EXISTS ;(SELECT * FROM orders WHERE customer.postalcode = orders.postalcode)示例 7示例 7 显示 FieldName [NOT] IN Value_Set 窗体中的 Fliter Condition当筛选条件中包含 IN 时，把字段所在记录添加到查询结果中的条件是字段必须包含值集合的一个元素。customer.postalcode NOT IN ("98052","98072","98034")示例 8示例 8 显示 FieldName [NOT] IN (Subquery) 窗体中的 Fliter Condition这里，记录包含在查询结果中的条件是：字段必须包含一个子查询的返回值。customer.cust_id IN ;(SELECT orders.cust_id FROM orders WHERE orders.city="Seattle")示例 9示例 9 显示 FieldName [NOT] LIKE cExpression 窗体中的 Fliter Conditioncustomer.country NOT LIKE "UK"这个筛选条件查找每个与字符串表达式相匹配的字段。在字符串表达式中可以使用百分号 (%) 和下划线 ( _ ) 通配符。下划线表示字符串中一个任意字符。GROUP BY GroupColumn [, GroupColumn ...]按列的值对查询结果的行进行分组。GroupColumn 可以是常规的表字段名，也可以是一个包含 SQL 字段函数的字段名，还可以是一个数值表达式，指定查询结果表中的列位置(最左边的列编号为 1 )。HAVING FilterCondition指定包括在查询结果中的组必须满足的筛选条件。HAVING 应该同 GROUP BY一起使用。它能包含数量不限的筛选条件，筛选条件用 AND 或 OR 连接，还可以使用 NOT 来对逻辑表达式求反。FilterCondition 不能包括子查询。使用 HAVING 子句的命令如果没有使用 GROUP BY 子句，则它的作用与WHERE 子句相同。可以在 HAVING 子句中使用本地别名和字段函数。如果HAVING 子句不包含字段函数的话，使用 WHERE 子句可以获得较快的速度。[UNION [ALL] SELECT命令]把一个 SELECT 语句的最后查询结果同另一个 SELECT 语句最后查询结果组合起来。默认情况下，UNION 检查组合的结果并排除重复的行。要组合多个UNION 子句，可使用括号。ALL 防止 UNION 删除组合结果中重复的行。UNION 子句遵守下列规则：不能使用 UNION 来组合子查询。两个 SELECT 命令的查询结果中的列数必须相同。两个 SELECT 查询结果中的对应列必须有相同的数据类型和宽度。只有最后的 SELECT 中可以包含 ORDER BY 子句，而且必须按编号指出所输出的列。如果包含了一个 ORDER BY 子句，它将影响整个结果。ORDER BY Order_Item根据列的数据对查询结果进行排序。每个 Order_Item 都必须对应查询结果中的一列。它可以是下列之一：FROM 子句中表的字段，同时也是 SELECT 主句(不在子查询中)的一个选择项。一个数值表达式，表示查询结果中列的位置(最左边列编号为 1 )。ASC 指定查询结果根据排序项以升序排列。它是 ORDER BY 的默认选项。DESC 指定查询结果以降序排列。如果不使用 ORDER BY 指定查询结果的排列顺序，则查询结果不排序。说明同其他 Visual FoxPro 命令一样，SELECT 是 Visual FoxPro 的一个内部 SQL 命令。当使用 SELECT 进行查询时，Visual FoxPro 先解释查询要求，然后从表中查询并检索指定数据。可以在下列环境内建立 SELECT 查询：命令窗口一个 Visual FoxPro 程序(与使用其他 Visual FoxPro 命令一样)查询设计器如果执行了 SET TALK ON 命令后再执行 SELECT 命令，则 Visual FoxPro 显示出执行查询所用的时间和查询结果中记录的数目。_TALLY 包含了查询结果中记录的数目。SET FILTER 设置的筛选条件对SELECT 命令不起作用。下面部分将多次提到子查询 (subquery)，子查询是指在 SELECT 命令中包含的SELECT 命令。在 SELECT 命令的 WHERE 子句中可以包含最多两个平级的(非嵌套)的子查询。子查询中可以有多个连接条件 (join conditions)。创建查询输出时，列的命名遵循如下规则：如果选择项是具有唯一名称的字段，则用字段名作为输出列名。如果多个选择项具有相同名称。例如，如果名为 Customer 的表有一个STREET 字段，而名为 Employees 的表也有一个 STREET 字段，则输出列命名为 Extension_A 和 Extension_B (STREET_A 和 STREET_B)。如果选择项名称有 10 字符长，可以将名称截短后再加下划线和字母。例如，DEPARTMENT 变为 DEPARTME_A。如果选择项是表达式，它的输出列命名为 EXP_A。其他表达式分别命名为EXP_B、EXP_C，依此类推。如果选择项包含诸如 COUNT() 这样的字段函数，则输出列命名为CNT_A。如果另一个选择项包含 SUM()，它的输出列命名为 SUM_B。SELECT 子句中的用户自定义函数：在 SELECT 子句中使用用户自定义函数有明显优点，但使用时应考虑以下限制：SELECT 子句的运行速度会受用户自定义函数执行速度的影响。因此，如果使用户自定义函数的操作量很大，则这些函数的功能最好调用 C 语言或汇编语言编写的 API 或用户自定义函数来完成。在 SELECT 激活的用户自定义函数中，很难预测 Visual FoxPro 输入/输出(I/O)和表的环境。一般来说，不知道选择的工作区是哪一个，不知道当前表的名称，甚至不知道正在处理的字段名。这些变量的值完全取决于用户自定义函数在优化过程的什么地方激活。在 SELECT 子句调用的用户自定义函数中修改 Visual FoxPro I/O 或表的环境是很不安全的。一般来说，这样做的结果难以预料。从 SELECT 将值传递给用户自定函数唯一可靠的方法，是激活用户自定义函数时以参数的形式传递。经过实践，有可能发现某种被认为是违法的操作在某种 FoxPro 版本中运行正确，但这并不保证它在以后的版本中也能正确运行。抛开这些限制不说，用户自定义函数在 SELECT 语句中还是可接受的。但不要忘记使用 SELECT 可能要降低性能。下列字段函数可以与选定项一起使用，选定项可以是一个字段或包含字段的表达式：AVG(Select_Item) ，计算列中数值的平均值。COUNT(Select_Item) ，计算列中选定项的数目。计算查询输出的行数。MIN(Select_Item)，确定列中 Select_Item 的最小值。MAX(Select_Item)，确定列中 Select_Item 的最大值。SUM(Select_Item)，计算列中数值的和。字段函数不能嵌套使用。连接 (Join) Visual FoxPro 支持 ANSI SQL '92 连接 (Join) 语法，通过比较两个或多个表中的字段，将它们的记录连接到一起，生成查询。例如，内部连接 (inner join) 是将两个表中连接字段 (joined field) 值相同的记录选取到查询中。Visual FoxPro 支持嵌套连接(nested joins)重要事项创建连接条件时，请记住如下几点：如果在查询中包括两个表，又没有指定连接条件，那么第一个表中每一个记录同第二个表中每一记录之间，只要满足筛选条件，就连接起来。这种查询产生的结果很长。在连接条件中使用 DELETED()，EOF()，FOUND()，RECCOUNT()，和 RECNO() 等支持可选别名或工作区的函数时要小心。在这些函数中包括别名或工作区可能导致不可预料的结果。SELECT 不使用工作区，它执行与 USE ... AGAIN 相同的操作。在不带可选别名和工作区的情况下使用这些函数进行单表查询时，可得到正确的结果。但是，使用这些函数进行多表查询时，即使不带可选别名或工作区，也可能得到一些莫明其妙的结果。当连接含有空字段 (empty field) 的表时也要注意。这是因为 Visual FoxPro匹配空字段。例如，连接 CUSTOMER.ZIP 和 INVOICE.ZIP 两个表。如果CUSTOMER 表中的 100 条记录中没有给出邮政编码，INVOICE 表中也有400 条记录没有给出邮政编码，那么查询结果中将会由于空字段的匹配而出现 40000 条多余的记录。要去除查询结果中的空记录，可以使用 EMPTY() 函数。有关连接的其它情况，请参阅《Microsoft Visual FoxPro 6.0 中文版程序员指南》第八章“创建视图”。---------------------------------------------以下是本人商用软件《建筑机具租赁结算系统》的各单位日租租赁情况统计子过程，这里多处用到...for条件，请参考指正：proce sdl95_1*各单位日租租赁情况统计use .\dbf\systembfb0=dtqfbfb &&冬停的百分比useuse .\dbf\dwnamemchoice=zldmrq0=ctod(alltrim(c)) &&日期，表示统计到这天，这天算租费usecreate table .\dbf\temp1 (;rq d,; &&日期zldm c(3),; &&租赁单位代码rzjzj n(12,3),; &&增加租金rzjjs n(12,3),; &&减少租金rzj n(12,3),; &&日租金缓冲rzjhj n(12,3),; &&日租金合计ts n(4),; &&天数zlf n(12,3),; &&分步租金zlflj n(12,3); &&租金累计)use&&以上建立目的是计算一个客户的租金&&以下建立各单位的租金、租赁费统计情况表create table .\dbf\tempX (;dw c(38) ,; &&单位名称rzjhj n(12,3),; &&日租金合计zlflj n(12,3),; &&租金累计dtf n(12,3),; &&扣冬停费sjzlf n(12,3); &&实际租赁费=租金累计-扣冬停费)use&&以下将小于等于rq0日期的所有单位的租赁数据拷贝到temp2表中use .\dbf\zlmxbcopy to .\dbf\temp2 for rq<=rq0use&&以下将小于等于rq0日期的所有单位的回收数据拷贝到temp3表中use .\dbf\hsmxbcopy to .\dbf\temp3 for rq<=rq0use*select 2*use .\dbf\temp2*select 3*use .\dbf\temp3select 1use .\dbf\temp1select 8use .\dbf\tempX &&目的表select 9use .\dbf\tempzydwmcdelete all for zldm=" " &&删除那些无租赁代码的行packgo topdo while .not. eof()select 1 &&选择temp1将其内容删除zapappend from .\dbf\temp2delete all for zldm <> tempzydwmc.zldm &&租赁packreplace all rzjzj with rzj,rzjjs with 0jjj=reccount()append from .\dbf\temp3delete all for zldm <>tempzydwmc.zldm .and. recno()>jjj &&回收packreplace all rzjjs with rzj,rzjzj with 0 for recno()>jjjappend blankreplace rq with rq0+1, rzjjs with 0,rzjzj with 0 &&要统计的那一天日期必须加进去，并且天数+1，因为含今天index on rq to .\idx\rqtotal on rq to .\dbf\temp4select 4 &&4工作区use .\dbf\temp4go bottomreplace ts with 0rq1=rqif !bof()skip -1endif*以下计算天数do while .not. bof()replace ts with rq1-rqrq1=rqskip -1enddorzj0=0 &&日租金初值=0go topdo while .not. eof()replace rzjhj with rzj0+rzjzj-rzjjsreplace zlf with ts*rzjhjrzj0=rzjhjskipenddo*以下****行间一步一步计算租赁累计****go topzlflj0=0do while .not. eof()replace zlflj with zlflj0+zlfzlflj0=zlfljskipenddosum zlf to zlf00 for rq>=tempzydwmc.dt1 .and. rq<tempzydwmc.dt2 &&这里一定是日期>=冬停1 而小于< 冬停2zlf00=zlf00*bfb0 &&bfb0表示冬停取费系数&& locate for rq=rq0 &&定位到指定的日期go bottomselect 8append blankreplace dw with tempzydwmc.zlmc,rzjhj with temp4.rzjhj,zlflj with temp4.zlflj,dtf with zlf00replace sjzlf with zlflj - dtfselect 4 && temp4表useselect 9skipenddoclose databasereturn

我想用DBF格式的文件筛选数据，需要用到VFP的语句，如下该怎么做？

2回答