Question

求VFP高手帮忙解题

某公司销售数据库系数有2个表文件：GUEST.DBF,结构为（编号/C/10,客户名/C/10,联系电话/C/10).（C代表字符型，10代表长度）
ware.DBF(编号/C/10,货品名/C/10,单价/N/10/2,数量/N/6,已发货/L/1,已付款/L/1).编写程序查询客户未付款货品清单，要求：当输入客户名称时，首先判断有无此客户，若有则显示该客户已发货但未付款清单。格式如下：
客户已发货未付款清单
客户名 货品名 单价 数量
** ** ** **

Answer 1

我感觉楼上的答案有点小问题，因为你的select命令会查询出所有已发货未付款的记录，前面输入的要查询的客户名没用上。我觉得应该再加上一个条件。共同探讨吧！
clear
use guest
accept "请输入客户名：" to kh
loca for 客户名=kh
if found()
sele 客户名,货品名,单价,数量 from guest,ware where guest.编号=ware.编号 and 已发货=.t. and 已付款=.f. and 客户名=kh
else
?"未找到该客户！"
endif
use

方法二：
两个表先要按共有字段“编号”建立临时关联。

sele 2
use ware
index on 编号 tag 编号
sele 1
use guest
set relation to 编号 into b
accept "请输入要的客户名：" to khm
sele 1
locate for 客户名=khm
if not eof()
？"客户已发货未付款清单"
disp fields 客户名,b.货品名,b.单价,b.数量 for b.已发货=.T. and b. 已付款=.F.
else
?"此客户名不存在！"
endif
close table all
return

Answer 2

clear
use guest
accept "请输入客户名：" to kh
loca for 客户名=kh
if found()
sele 客户名,货品名,单价,数量 from guest,ware where guest.编号=ware.编号 and 已发货=.t. and 已付款=.f.
else
?"未找到该客户！"
endif
use