文档视界
文档视界 最新最全的文档下载
当前位置：文档视界 › 计算机二级VF代码大全代码

计算机二级VF代码大全代码

1.1 SELECT 供应.供应商号,供应.工程号,供应.数量;
FROM 零件,供应 WHERE 供应.零件号=零件.零件号;
AND 零件.颜色="红";
ORDER BY 供应.数量 desc;
INTO DBF supply_temp
do menu_quick.mpr
1.2Select 零件.零件名,零件.颜色 ,零件.重量;
From 供应,零件;
Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value;
Order By 零件名;
Into dbf pp
ThisForm.Grid1.RecordSource="pp"
2.2SELECT 作者姓名,所在城市;
FROM AUTHORS;
WHERE 作者编号 IN;
(SELECT 作者编号 FROM BOOKS GROUP BY 作者编号 HAVING COUNT(*)>=3);
ORDER BY 作者姓名;
INTO TABLE NEW_VIEW4
2.3SELECT * FROM BOOKS WHERE 书名 LIKE "%计算机%" INTO TABLE BOOKS_BAK
UPDATE BOOKS_BAK SET 价格=价格*(1-0.05)
SELECT TOP 1 Books_bak.出版单位,avg(books_bak.价格) as 均价;
FROM books_bak;
GROUP BY Books_bak.出版单位;
HAVING 均价>=25;
ORDER BY 2;
INTO TABLE new_table4.dbf
3.2SELECT 项目信息.项目号, 项目信息.项目名, 零件信息.零件号,;
零件信息.零件名称;
FROM 使用零件情况!零件信息 INNER JOIN 使用零件情况!使用零件;
INNER JOIN 使用零件情况!项目信息 ;
ON 使用零件.项目号 = 项目信息.项目号 ;
ON 零件信息.零件号 = 使用零件.零件号;
ORDER BY 项目信息.项目号 DESC, 零件信息.零件号;
INTO TABLE item_temp.dbf
3.3步骤3：双击表单空白处，在表单的Init事件中输入如下代码：
Public a(3)
A(1) = "s1"
A(2) = "s2"
A(3) = "s3"
x=allt(https://www.docsj.com/doc/6a9354618.html,bo1.value)
SELECT SUM(使用零件.数量*零件信息.单价) as je;
FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ;
ON 使用零件.零件号 = 零件信息.零件号;
WHERE 使用零件.项目号 = x into array b
thisform.text1.value=allt(str(b[1]))
"退出"按钮的Click事件代码如下：
thisform.release
4.2SELECT Book.书名, Book.作者, Book.价格;
FROM book,loans,borrows ;
WHERE Loans.借书证号 = Borrows.借书证号 ;
AND Book.图书登记号 = Loans.图书登记号;
AND Borrows.姓名 = "田亮";
ORDER BY Book.价格 DESC;
INTO TABLE book_temp.dbf
5.2SELECT Book.书名, Book.作者, Book.价格;
FROM book,loans,borrows ;
WHERE Loans.借书证号 = Borrows.借书证号 ;
AND Book.图书登记号 = Loans.图书登记号;
AND Borrows.姓名 = "田亮";
ORDER BY Book.价格 DESC;
INTO TABLE book_temp.dbf
DO menu_lin.mpr With This,"abc"
Release Menu abc Extended
5.3SELECT COUNT(*) FROM BOOK;
WHERE 出版社=https://www.docsj.com/doc/6a9354618.html,BO1.VALUE;
INTO ARRAY TEMP
THISFORM.TEXT1.VALUE=TEMP(1)
6.1 INSERT INTO 零件信息 VALUES("p7","PN7",1020)
DELE FROM 零件信息 WHERE 单价<600
UPDATE 零件信息 SET 单价=1090 WHERE 零件号="p4"
6.2 SELECT 零件名称 FROM 零件信息 WHERE 零件号 = ;
(SELECT 零件号 FROM 使用零件;
GROUP BY 项目号 HAVING COUNT(项目号) = 3) ;
OR

DER BY 零件名称 ;
INTO FILE results

x=thisform.text1.value
a= "SELECT 零件信息.零件号,零件信息.零件名称,零件信息.单价,使用零件.数量;
FROM 零件信息,使用零件 ;
WHERE 零件信息.零件号=使用零件.零件号 and 使用零件.项目号=x ;
ORDER BY 零件信息.零件号 INTO TABLE "+x
&a
7.2 错误1：FOR i=1 TO thisform.List1.ColumnCount
修改为：FOR i=1 TO thisform.List1.ListCount
错误2：s=thisform.List1.value
修改为：s=thisform.List1.List(i)
错误3：s=s+thisform.List1.value
修改为：s=s+","+thisform.List1.List(i)
7.3 DO mymenu.mpr WITH THIS, "myform"
SELECT Customer.客户号, Customer.客户名, sum(orders.金额) as 合计;
FROM customer,orders ;
WHERE Customer.客户号 = Orders.客户号;
GROUP BY Customer.客户号;
ORDER BY 3 DESC;
INTO TABLE tabletwo.dbf
8.1 ALTER TABLE 课程表 ADD UNIQUE 课程号 TAG temp
8.2 错误1：将 TO 改为 INTO。
错误2：将 OPEN 改为 USE。
错误3：将 SCAN OF 改为 SCAN FOR。
错误4：将 OR 改为 AND。
错误5：将 sum+1 改为 sum=sum+1。
8.3public a(3)
a(1)="3000"
a(2)="4000"
a(3)="5000"
8.3 x=val(https://www.docsj.com/doc/6a9354618.html,bo1.value)
if thisform.optiongroup1.value = 1
sele * from 教师表 where 工资 >= x order by 工资 desc,姓名 into table salary
else
sele * from 教师表 where 工资 < x order by 工资 desc,姓名 into table salary
endif
9.1 ALTER TABLE student ADD UNIQUE 学号 TAG 学号
9.2 错误1：改为 STORE 0 TO x,s1,s2,s3。
错误2：改为 x=val(thisform.text1.value)。
错误3：改为 if mod(x,3)=0。
9.3 SELECT Student.姓名, Course.课程名称, Score.考试成绩;
FROM student INNER JOIN score;
INNER JOIN course ;
ON Score.课程编号 = Course.课程编号 ;
ON Student.学号 = Score.学号;
where &cn;
ORDER BY Course.课程名称, Score.考试成绩 DESC;
INTO TABLE zonghe.dbf
10.3 SELECT course.课程名, score1.成绩;
FROM course ,score1;
WHERE course.课程号=score1.课程号 AND score1.学号= ThisForm.Text1.text;
INTO TABLE coruse_cursor
IF RECC() = 0
MESSAGEBOX("学号不存在，请重新输入学号")
ELSE
ThisForm.Grid1.RecordSource="coruse_cursor"
ThisForm.Grid1.refresh
ENDIF
11.1 SELECT 外币名称,现钞买入价,卖出价;
FROM rate_exchange;
INTO TABLE rate_ex.dbf

Update Rate_exchange set 卖出价=829.01 where 外币名称='美元'
11.2 ******"暂停"按钮的Click事件代码******
ThisForm.Timer1.Interval=0
************************************
******"继续"按钮的Click事件代码*****
ThisForm.Timer1.Interval=500
***********************************
******"退出"按钮的Click事件代码*****
ThisForm.Release
***********************************
******"计时器"的timer事件代码*******
https://www.docsj.com/doc/6a9354618.html,bel1.Caption=time()
12.1 SELECT *;
FROM college!教师表;
WHERE 教师表.工资 > 4500;
ORDER BY 教师表.职工号;
TO FILE one.txt
12.2 第一处：WHILE改为W

HERE。
第二处：OPEN改为USE。
第三处：WHERE改为FOR。
第四处：填入num = num +1
12.3 x = https://www.docsj.com/doc/6a9354618.html,bo1.value
if thisform.optiongroup1.value = 1
SELECT 学院表.系名, 学院表.系号, avg(教师表.工资) as 平均工资;
FROM college!学院表 INNER JOIN college!教师表 ;
ON 学院表.系号 = 教师表.系号;
WHERE 学院表.系名 = x;
GROUP BY 学院表.系号;
INTO TABLE salary.dbf
else

SELECT 学院表.系名, 学院表.系号, sum(教师表.工资) as 总工资;
FROM college!学院表 INNER JOIN college!教师表 ;
ON 学院表.系号 = 教师表.系号;
WHERE 学院表.系名 = x;
GROUP BY 学院表.系号;
INTO TABLE salary.dbf
Endif
13.2 SELECT Rate_exchange.外币名称, Currency_sl.持有数量;
FROM currency_sl,rate_exchange ;
WHERE Currency_sl.外币代码 = Rate_exchange.外币代码;
AND Currency_sl.姓名 = "林诗因";
ORDER BY Currency_sl.持有数量;
INTO TABLE rate_temp.dbf
13.3select 外币名称,现钞买入价*持有数量 as 人民币数量;
from rate_exchange,currency_sl;
where rate_exchange.外币代码 = currency_sl.外币代码 and currency_sl.姓名 = thisform.text1.value;
order by 人民币数量 desc;
into dbf dbfa
thisform.grid1.recordsource = "dbfa"
14.2 第3行改为：FROM 客户,入住 WHERE 客户.客户号 = 入住.客户号;
第5行改为：( SELECT 入住日期;
第7行改为：WHERE 客户.客户号 = 入住.客户号 AND 姓名 = "姚小敏");
第8行改为：INTO TABLE TABC
14.3 SET CENTURY ON
SET DATE TO YMD
SELECT 客户.客户号, 客户.身份证, 客户.姓名, 客户.工作单位, 客房.客房号, 房价.类型名, 房价.价格;
FROM 客户,房价,入住,客房;
WHERE 客户.客户号 = 入住.客户号;
AND 客房.客房号 = 入住.客房号;
AND 房价.类型号 = 客房.类型号;
AND 入住.退房日期>=ctod(ThisForm.Text1.value);
ORDER BY 房价.价格 DESC;
INTO TABLE tabd
15.1 ThisForm.Text1.Value=year(date())
https://www.docsj.com/doc/6a9354618.html,mand1.Enabled=.f.
alter table 教师表 alter 职工号 set check LEFT(职工号,3)="110"
15.2 步骤2：修改程序中的错误如下。
错误1：将"WHILE"改为"DO WHILE"。
错误2：将"NEXT"改为"SKIP"。
错误3：将"CASE"改为"IF"。
步骤3：保存并运行表单。
15.3a=ThisForm.Check1.Value
b=ThisForm.Check2.Value
c=ThisForm.Optiongroup1.Option1.Value
d=ThisForm.Optiongroup1.Option2.Value
if a=1 and b=1
if c=1
select 职工号,姓名,系名,工资,课程号 from 教师表,学院表;
where 教师表.系号=学院表.系号;
order by 职工号;
into table two.dbf
else
if d=1
select 职工号,姓名,系名,工资,课程号 from 教师表,学院表;
where 教师表.系号=学院表.系号;
order by 职工号 desc;
into table two.dbf
endif
endif
endif
if a=1 and b=0
if c=1
select 职工号,姓名,系名,课程号 from 教师表,学院表;
where 教师表.系号=学院表.

系号;
order by 职工号;
into table one_x.dbf
else
if d=1
select 职工号,姓名,系名,课程号 from 教师表,学院表;
where 教师表.系号=学院表.系号;
order by 职工号 desc;
into table one_x.dbf
endif
endif
endif
if a=0 and b=1
if c=1
select 职工号,姓名,工资,课程号 from 教师表,学院表;
where 教师表.系号=学院表.系号;
order by 职工号;
into table one_xx.dbf
else
if d=1
select 职工号,姓名,工资,课程号 from 教师表,学院表;
where 教师表.系号=学院表.系号;
order by 职工号 desc;
into table one_xx.dbf
endif
endif
endif
16.1 INSERT INTO 分组情况表 VALUES("01","通俗唱法")
16.2步骤1：单击工具栏中的"打开"按钮，打开考生文件夹下的程序文件five。
步骤2：修改程序中的错误语句
第1处：将"WHILE"改为"DO WHILE"；
第2处：将"歌手表.歌手编号"改为"LEFT(歌手表.歌手编号,2)"；
第3处：将"INTO"改为"WITH"
16.3 SELECT * FROM 评分表;
WHERE left(评分表.歌手编号,2) = ThisForm.List1.list(ThisForm.List1.listindex);
INTO TABLE two.dbf;
ORDER BY 评分表.歌手编号 DESC, 评分表.分数
17.1 alter table 教师表 alter 职工号 set check LEFT(职工号,4)="1102"
17.2 CREATE TABLE 工资表(职工号 C(8) primary KEY,姓名 C(6) ,工资 N(10,2))
INSERT INTO 工资表 VALUES ("11020034","宣喧",4500)
USE 工资表
APPEND FROM 教师表
UPDATE 工资表 set 工资=工资*1.1 WHERE 工资<3000
DELETE FROM 工资表 where 姓名="Thomas"
PACK
17.3 *******"取前三名"菜单项中的代码*******
SELECT TOP 3 学院表.系名,avg(教师表.工资) as 平均工资;
FROM 学院表,教师表 ;
WHERE 学院表.系号 = 教师表.系号;
GROUP BY 学院表.系名;
ORDER BY 2 DESC;
INTO TABLE sa_three.dbf
*************************
*******"取前五名"菜单项中的代码*******
SELECT TOP 5 学院表.系名, avg(教师表.工资) as 平均工资;
FROM 学院表,教师表 ;
WHERE 学院表.系号 = 教师表.系号;
GROUP BY 学院表.系名;
ORDER BY 2 DESC;
INTO TABLE sa_five.dbf
18.1 INSERT INTO SCORE1(学号,课程号,成绩) VALUES("993503433","0001",99)
18.3 SET TALK OFF
OPEN DATABASE SCORE_MANAGER
SELECT Course.课程名, AVG(Score1.成绩) as平均成绩;
FROM course,score1 ;
WHERE Course.课程号 = Score1.课程号;
GROUP BY Course.课程名;
ORDER BY Course.课程名;
INTO TABLE NEW_TABLE32
CLOSE ALL
SET TALK ON
19.1 select * from 歌手表.dbf;
where 歌手出生地 = https://www.docsj.com/doc/6a9354618.html,bo1.list;
INTO TABLE birthplace.dbf
19.3 SELECT 歌手表.歌手姓名, avg(评分表.分数) as 得分;
FROM 歌手表,评分表;
WHERE 歌手表.歌手编号 = 评分表.歌手编号;
AND left(歌手表.歌手编号,2) = "01";
GROUP BY 歌手表.歌手姓名;
ORDER BY 2 DESC, 歌手表.歌手姓名 DESC;
INTO TABLE final.dbf
20.1 copy stru to emp_bak.

dbf
20.2 第1处错误改为：from employee p join employee c ;
第2处错误改为：on p.组别=c.组别 where c.职务="组长" and c.姓名<>p.姓名;
20.3 x=ThisForm.textn.Value
a = "SELECT Order.订单号, Order.客户号, Order.签订日期, Order.金额 FROM order WHERE Order.职员号 = x ORDER BY Order.签订日期 INTO TABLE t" + x
&a
21.1 USE 金牌榜
COPY STRU TO GOLDEN
insert into golden Value("011",9,7,11)
21.2 SELECT 国家.国家名称, COUNT(获奖牌情况.名次) AS 金牌数;
FROM 国家,获奖牌情况 ;
WHERE 国家.国家代码 = 获奖牌情况.国家代码;
AND 获奖牌情况.名次=1;
GROUP BY 国家.国家名称;
ORDER BY 2 DESC, 国家.国家名称 DESC;
INTO TABLE temp.dbf

RowSourceType属性为"3-SQL"，RowSource属性为"Select 国家名称 From 国家 Into Cursor LSB"
21.3 SELECT 国家.国家名称,COUNT(获奖牌情况.名次) AS 奖牌总数;
FROM 国家,获奖牌情况 WHERE 国家.国家代码=获奖牌情况.国家代码;
GROUP BY 国家.国家名称;
ORDER BY 2 DESC,国家.国家名称;
INTO TABLE 假奖牌榜.dbf
DO Four.prg
REPORT FORM SPORT_REPORT.FRX PREVIEW
22.2 错误1：set century to 4
正确：set century on 4
错误2：va＝text1.value
正确：va=thisform.text1.value
错误3：this.grid1.RowdSource=st
正确：thisform.grid1.RecordSource=st
22.3 SELECT year(orders.签订日期) as 年份,month(orders.签订日期) as 月份,;
sum(orders.金额) as 合计;
FROM orders ;
GROUP BY 2,1;
HAVING 合计 >= 0;
ORDER BY 1 DESC, 2;
INTO TABLE tabletwo.dbf
23.3 SET TALK OFF
OPEN DATABASE cj_m
SELECT * FROM table3 WHERE .f. INTO TABLE temp
SELECT 1
USE xuesheng
INDEX ON 学号 TAG 学号
SELECT 2
USE chengji
INDEX ON 学号 TAG 学号
SET RELATION TO 学号 INTO xuesheng
GO TOP
DO WHILE .NOT.EOF()
IF chengji.数学<60
INSERT INTO temp Values (xuesheng.学号,xuesheng.姓名,'数学',chengji.数学)
ENDIF
IF chengji.英语<60
INSERT INTO temp Values (xuesheng.学号,xuesheng.姓名,'英语',chengji.英语)
ENDIF
IF chengji.信息技术<60
INSERT INTO temp Values (xuesheng.学号,xuesheng.姓名,'信息技术',chengji.信息技术)
ENDIF
SKIP
ENDDO
SELECT * FROM temp ORDER BY 分数,学号 DESC INTO ARRAY arr
INSERT INTO table3 FROM ARRAY arr
CLOSE DATABASE
CLOSE TABLES ALL
DROP TABLE temp
SET TALK ON
RETURN

24.1 ALTER TABLE s_t ADD COLUMN 备注 C(30)
ALTER TABLE s_t ALTER 年度 SET DEFAULT "2004"
24.2 将第5行改为：(一季度利润+二季度利润+三季度利润+四季度利润)/(一季度销售额+二季度销售额+三季度销售额+四季度销售额) AS 利润率；
将第6行改为：FROM S_T,DEPT；
将第8行改为：ORDER BY 年度,利润率 DESC；
将第9行改为：INTO TABLE S_SUM
24.3 ThisForm.Grid1.RecordSource="SELECT * FROM s_t WHERE 年度='"+str(thisform.Spinner1.value,4,0)+"' into cursor lsb"
25.2 SELECT stock_name.股票简称,stock_sl.现价,stock_sl.

买入价,stock_sl.持有数量;
FROM stock_name,stock_sl;
WHERE stock_sl.股票代码=stock_name.股票代码 And stock_sl.现价>stock_sl.买入价;
ORDER BY stock_sl.持有数量 DESC;
INTO TABLE stock_temp
25.3 pinyin=alltrim(thisform.text1.value)
open database stock
use stock_name
locate for 汉语拼音=pinyin
if found()
SELECT 持有数量,股票简称;
FROM stock_sl,stock_name ;
WHERE 汉语拼音=pinyin and stock_sl.股票代码=stock_name.股票代码;
INTO array a
thisform.text1.value=a[2]
thisform.text2.value=a[1]
else
wait "没有查询到,请重输" window timeout 2
endif

thisform.text1.value=""
thisform.text2.value=""
26.1 ThisForm.mymethod
26.3 SELECT Xuesheng.民族,avg(Chengji.数学) as x,AVG(Chengji.英语) AS y;
FROM xuesheng,chengji;
WHERE Xuesheng.学号 = Chengji.学号 AND Xuesheng.民族="汉";
INTO ARRAY a
INSERT INTO table3 FROM ARRAY a
SELECT Xuesheng.民族,avg(Chengji.数学) as x,AVG(Chengji.英语) AS y;
FROM xuesheng,chengji;
WHERE Xuesheng.学号 = Chengji.学号;
AND Xuesheng.民族!="汉" INTO ARRAY a
INSERT INTO table3 FROM ARRAY a
UPDATE table3 SET 民族='其他' WHERE 民族!="汉"
27.1 ThisForm.Height=val(ThisForm.Text1.value)
27.3 ALTER TABLE ORDER ADD 总金额 N(7,2)
SELECT Orderitem.订单号, sum(goods.单价*orderitem.数量) as 总金额;
FROM goods,orderitem ;
WHERE Goods.商品号 = Orderitem.商品号;
GROUP BY Orderitem.订单号;
ORDER BY Orderitem.订单号;
INTO TABLE temp.dbf
CLOSE ALL
SELECT 1
USE TEMP
INDEX ON 订单号 TO ddh1
SELE 2
USE ORDER
INDEX ON 订单号 TO ddh2
SET RELATION TO 订单号 INTO A
DO WHILE .NOT.EOF()
REPLACE 总金额 WITH temp.总金额
SKIP
ENDDO
BROW
28.1 use employee.dbf
set order to xm
28.3 ThisForm.Grid1.RecordSource="select order.订单号,order.金额 from order inner join employee on order.职员号=employee.职员号 where employee.姓名=alltrim(thisform.Text1.Value)"
SELECT Employee.姓名, max(Order.金额) as 最高金额, min(Order.金额) as 最低金额, avg(Order.金额) as 平均金额;
FROM employee INNER JOIN order ;
ON Employee.职员号 = Order.职员号;
where employee.姓名=alltrim(thisform.Text1.Value);
GROUP BY Employee.职员号;
INTO cursor temp
insert into tablethree(姓名,最高金额,最低金额,平均金额) values(temp.姓名,temp.最高金额,temp.最低金额,temp.平均金额)
29.1 update tabb set 日期={^2005-10-01}
SELECT DISTINCT *;
FROM TABA;
INTO TABLE TABC.dbf
29.2 CLOS ALL
USE TABA
SCAN
IF A<>0 AND B*B-4*A*C >=0
REPL x1 WITH (-B+SQRT(B*B-4*A*C))/(2*A),x2 WITH (-B-SQRT(B*B-4*A*C))/(2*A)
ELSE
REPL NOTE WITH "无实数解"
ENDIF
ENDSCAN
29.3 CLOSE ALL
SELECT * FROM 学生表;
WHERE 学生表.注册日期 = CTOD(ThisForm.Text1.Value);
ORDER BY 学生表.年龄 DESC;
INTO TABLE temp.dbf
USE TABE
DELE ALL
PACK
APPEND FROM TEMP
THISFORM.GRID1.RECORDSOURCE="SELECT * FROM 学生表 WHERE 学生表.注

册日期 = CTOD(ThisForm.Text1.Value) INTO CURSOR XX ORDER BY 学生表.年龄 DESC"
30.1 ALTER TABLE 金牌榜 ADD 奖牌总数 INT CHECK 奖牌总数>=0
UPDATE 金牌榜 SET 奖牌总数=金牌数+银牌数+铜牌数
30.3 select 国家名称 from 国家 into cursor ls
SELECT 运动员名称,项目名称,名次;
FROM 获奖牌情况,国家;
WHERE 国家.国家代码=获奖牌情况.国家代码;
AND 国家名称=ThisForm.List1.list(ThisForm.List1.listindex);
INTO TABLE ThisForm.List1.list(ThisForm.List1.listindex) ;
order by 名次
31.2 第1处错误改为：locate for 姓名="林诗因"
第2处错误改为：do while not eof()
第3处错误改为：summ=summ+a[1] * currency_sl.持有数量
31.3 If ThisForm.myOption.Value=1
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="日元";
into table rate_ry
else
If ThisForm.myOption.Value=2
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="美元";
into table rate_my
else
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="欧元";
into table rate_oy
endif
endif
32.1 Use customers
index on 客户号 tag khh
32.2 x = ThisForm.Text1.Value
SELECT Customers.姓名, Customers.性别, Customers.出生日期;
FROM customers;
WHERE Customers.出生日期 >= x;
ORDER BY Customers.出生日期 DESC;
INTO TABLE tableone.dbf
32.3 SELECT Orderitems.订单号, sum(orderitems.数量*goods.单价) as 总金额;
FROM orderitems,goods ;
WHERE Orderitems.商品号 = Goods.商品号;
GROUP BY Orderitems.订单号;
ORDER BY Orderitems.订单号;
INTO TABLE temp.dbf
CLOSE ALL
SELE 1
USE temp
INDEX ON 订单号 TO ddh1
SELE 2
USE orders
INDEX ON 订单号 TO ddh2
SET RELATION TO 订单号 INTO A
DO WHILE .NOT.EOF()
REPLACE 总金额 WITH temp.总金额
SKIP
ENDDO
BROW


相关文档
相关文档 最新文档

侵权投诉  © 2013-2023 www.docsj.com  站点地图 | 手机版

闽ICP备11023808号-7  本站文档均来自互联网及网友上传分享，本站只负责收集和整理，有任何问题可通过上访投诉通道进行反馈