CLEAR
SET TALK OFF
SELECT ____
USE ____
INDEX ON ____ TO BHIDX
SELECT ____
USE ____
SET RELATION TO ____ INTO A
Accep “请输入修改教师编号:” to jsbh
Locate all for ____
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”
____
Else
____
endif
enddo
else
?”输入有误”
Endif
Close all
Set talk on
Return
在visual foxpro两个表之间建立查询应该怎么做?
答案:2 悬赏:0 手机版
解决时间 2021-02-20 12:31
- 提问者网友:回忆在搜索
- 2021-02-19 23:21
最佳答案
- 五星知识达人网友:人類模型
- 2021-02-19 23:53
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
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
全部回答
- 1楼网友:愁杀梦里人
- 2021-02-20 01:05
这是最基本的vf 不过学了也没用
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯