在visual foxpro两个表之间建立查询应该怎么做？

2025-03-10 04:07:41

推荐回答（1个）

回答1：

CLEAR
SET TALK OFF
SELECT 1
USE 表一
INDEX ON BH TO BHIDX
SELECT 2
USE 表二
SET RELATION TO BH INTO A
Accep “请输入修改教师编号：” to jsbh
Locate all for JSBH
If found()
@row(),2 say “********教师信息如下*************”
@row()+1,2 say “姓名:” GET 姓名
@row(),20 say “性别:” GET 性别
@row()+1,2 say “职称:” GET A.职称
@row(),20 say “工资” GET A.工资
@row()+1 ,2 say “*****************************”
Do while .t.
Wait “需要插入新记录吗（Y/N）：” to hd
If upper(hd)=”Y”
APPEND BLANK
Else
EXIT
endif
enddo

else
？”输入有误”
Endif
Close all
Set talk on
Return