字段如下：
数量   单价  合计  回款  余额
                          100
2        3      6    2    104
它的逻辑关系是：余额+合计（数量*单价）-回款
请教：
问题一是：在表中如何让   余额上一个记录数+合计（数量*单价）-回款

问题二是：在表单中如何让  余额上一个记录数+合计（数量*单价）-回款

     表单中的文本框是   数量1   单价1  合计1  回款1  余额1

在只打开一个表文件，且为当前表的情况下：

1、表单中应该有一个“新增”按钮，用于产生新记录(在文本框录入数值之前，应先点击它产生一条新记录)。其Click事件代码：
APPEND BLANK

2、把合计文本框、余额文本框设置为只读，即，这两个文本框的ReadOnly属性设置为.T.。再在表单的数量、单价、回款三个文本框的LostFocus或InteractiveChange事件中写入下面代码(未经测试)：
Thisform.合计文本框.Value=Thisform.数量文本框.Value*Thisform.单价文本框.Value
SKIP -1
M.YuE=余额  &&后面的中文字“余额”是字段名
SKIP
REPLACE 数量 WITH Thisform.数量文本框.Value, ;
        单价 WITH Thisform.单价文本框.Value, ;
        合计 WITH Thisform.合计文本框.Value, ;
        回款 WITH Thisform.回款文本框.Value, ;
        余额 WITH M.YuE+Thisform.合计文本框.Value-Thisform.回款文本框.Value
这样处理的好处是：在处理数量、单价、回款三个文本框时，可以不按顺序，三个文本框都有计算功能，无论修改哪个或输入哪个，表文件的这条记录都更新，匹配文本框的值。另外，代码若是在LostFocus事件中运行，则会等你输完数值离开文本框时刷新表文件；InteractiveChange事件可以在你一边录入数值时，表文件就一边在刷新了。

问题一：
LOCAL N
N=0
SCAN
   N=IIF(RECNO()=1,余额,N+合计-回款)
   REPLACE 余额 WITH N
ENDSCAN

问题二：
在添加按钮下，第一行开始，写入下面代码：
IF RECCOUNT()>1
   SELECT 余额 FROM 表 WHERE RECNO()=RECCOUNT() INTO CURSOR T
   N=余额
   USE IN T
ENDIF
在文本框（数量,单价,回款）的INTERACTIVECHANGE事件中分别写入下面代码
THISFORM.TEXT5.VALUE=N+THISFORM.TEXT1.VALUE*THISFORM.TEXT2.VALUE-THISFORM.TEXT4.VALUE


[ 本帖最后由 sdta 于 2013-7-31 20:38 编辑 ]

如果仅要实现该功能的话，excell似乎简单些