高分答简单VFP小问题~

来源：百度知道 编辑：UC知道 时间：2024/09/20 09:21:13
设计一个表单
表单中两个文本框和两个命令按钮
查询和退出

运行表单时在文本框text1输如某人的姓名

然后单击查询按钮

则text2中会显示出他所有的全部外币相当于人民币的价值数量

2008-04-09 19:40:10 沉佥
某种外币相当于人民币的价值数量计算公式：

人民币的价值数量=该种外币的‘现钞买入价’*该种外币的“持有数量‘

用VFP做
现在有两个表，第一个表中有三个字段：姓名，外币代码，持有数量；另个表中有五个字段：外币名称，外币代码，现钞买入价，现钞卖出价，基准价。现在我已经做好表单样子，并把两个表在数据环境中关联。问该怎么设置两个文本框和两个按钮的事件代码。万分感谢！！！
提问者：L

关键都在“查询”的事件代码里面。比如第一个表名为a,第二个表名为b,代码如下：

xm=thisform.text1.value

sele a
loca for 姓名=xm
do while not eof()
sele a
if not eof()
wbdm=a.外币代码
cysl=a.持有数量

sele b
loca for 外币代码=wbdm
if no eof()
mrj=b.买入价
text2=mrj*cysl
endi
cont
endi
total=total+text2
endd
thisform.text2.value=text2