VF程序问题 在线等。。。。

来源:百度知道 编辑:UC知道 时间:2024/05/27 17:21:11
CLEAR
SET TALK off
SELECT 1
*USE 02 alias aa
USE temp_jgxx alias aa
GO top
DO while .not. EOF()
SELECT 2
*USE 二级运动员 alias bb

USE temp_bmk alias bb
* USE ms02 ALIAS bb

LOCATE for ksh=aa->ksh

SELECT 1
REPLACE bmxh with bb->bmxh
*REPLACE bmxh with bb->bmxh
*REPLACE lxdh with bb->lxdh
*REPLACE kscj WITH bb->zf
*REPLACE xm WITH bb->xm
SELECT 1
SKIP
IF EOF()
EXIT
ENDIF
ENDDO
是什么意思 我怎么才能应用。
没有人会吗?

*** 你的第一问:是什么意思
*** 答案在下列语句的 && 之后:

CLEAR && 清屏
SET TALK off && 关闭〔屏显命令的运行情况/结果〕
SELECT 1 && 选择 1 号工作区
*USE 02 alias aa && 已被注释。原意为:用花名 aa 打开表 02
USE temp_jgxx alias aa && 用花名 aa 打开表 temp_jgxx
GO top && 到(表的)顶端,即:指针指向最前面的记录
DO while .not. EOF() && 循环,条件是:不是表的尾端的话,就一直不停地循环
SELECT 2 && 选择 2 号工作区
*USE 二级运动员 alias bb && 已被注释。原意为:用花名 bb 打开表〔二级运动员〕

USE temp_bmk alias bb && 用花名 bb 打开表 temp_bmk
* USE ms02 ALIAS bb && 已被注释。原意为:用花名 bb 打开表〔ms02〕

LOCATE for ksh=aa->ksh && 按顺序搜索表,并停在第一个满足条件的记录处,条件是:(本表的)字段 ksh 的值,等於花名为 aa 表的字段 ksh 的值

SELECT 1 && 选择 1 号工作区
REPLACE bmxh with bb->bmxh && 用花名为 bb 表的字段 bmxh 的值,替换(本表的,即 temp_jgxx 的)字段 bmxh
*REPLACE bmxh with bb->bmxh && 已被注释。原意为:用花名为 bb 表的字段 bmxh 的值,替换(本表的,即 temp_jgxx 的)字段 bmxh (见鬼,不注释时与前一句是一样的意思!!!)
*REPLACE lxdh with bb->lxdh && 已被注释。原意为:用花名为 bb 表的字段 lxdh 的值,替换(本表的,即 temp_jgxx 的)字段 lxdh