寻求VFP高手解题!

我感觉楼上的答案有点小问题，因为你的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

bbdc cbdcc dddcb c