VFP表单的多表操作

[xiaoshengaimm]

大家好，我有一个表单中有两个表，一个叫收入表，一个叫账本，都是以日期为索引；其中收入表中有日期、收入数目、说明三字段，账本中有日期、收入数目、支出数目、债务数目、净资产、资产统计、说明这些字段。。。。。。现在我有一个表单，其中我想通过添加收入表记录，就可以系统自动改动账本的相关数据，请问点样实现呢？下面是我写的一段代码
SELECT 1
a=ALLTRIM(thisform.text1.value)
b=ALLTRIM(thisform.text2.value)
c=ALLTRIM(thisform.edit1.value)
IF EMPTY(a)
MESSAGEBOX("请输入日期",16,"系统提示！")
RETURN
ENDIF
IF EMPTY(b)
MESSAGEBOX("请输入收入数目",16,"系统提示！")
RETURN
ENDIF
IF EMPTY(c)
MESSAGEBOX("请输入说明",16,"系统提示！")
RETURN
ENDIF
GO bottom
APPEND BLANK
replace 日期 WITH CTOD(ALLTRIM(thisform.text1.Value)),;
收入数目 with VAL(ALLTRIM(thisform.text2.Value)),;
说明 with ALLTRIM(thisform.edit1.Value)
aa=dtoc(日期)
bb=STR(收入数目)
SELE 2
a=0
b=0
c=0
LOCATE FOR 日期=CTOD(aa)-1
IF .not.eof()
a=资产总计
b=净资产
c=债务数目
ENDIF
LOCATE FOR 日期=CTOD(aa)
IF eof()
APPEND BLANK
MESSAGEBOX("sadfhi",64,"shfdj")
日期=CTOD(aa)
收入数目=0
支出数目=0
债务数目=c
净资产=b
资产总计=a
ENDIF
SCAN FOR .not.eof()
replace 收入数目 with 收入数目+VAL(bb)
replace 净资产 with 净资产+VAL(bb)
replace 资产总计 with 资产总计+VAL(bb)
ENDSCAN
MESSAGEBOX("保存记录成功！",64,"系统提示")
thisform.Text1.value=""
thisform.Text2.value=""
thisform.edit1.value=""
thisform.refresh

[xy111222333]

你是在表单的数据环境中添加了两个表吧，这样操作很容易出现问题，建议你把表单数据环境的表去掉，在语句中操作哪个表就打开那个表，操作完毕就关闭该表。

[xiaoshengaimm]

回复二楼：
但是我的表单要显示表中的数据，好有其他几个操作的，撤销数据环境这个不太可能，我现在试了试，她说我的日期索引不唯一，我两个表都是以日期为索引的，其中账本为主索引，收入表为普通索引！还是要谢谢你！！

[xy111222333]

如果你的表单中只用到了收入表的数据，那么你可以在表单环境中只加入收入表，给收入表添加了数据后再打开账本表追加记录。

*收入表的操作
……
*账本表的操作
Use 账本表 In 100 &&在指定工作区打开表
Append Blank In 100 &&给指定工作区的表添加空白记录
A=RECCOUNT(100) &&指定工作区的记录总数
REPLACE 日期 WITH CTOD(ALLTRIM(thisform.text1.Value)),收入数目 WITH VAL(ALLTRIM(thisform.text2.Value)) RECORD A In 100 &&给指定工作区的表最后一条记录添加数值
Use In 账本表

[xy111222333]

[Quote=引用 3 楼 xiaoshengaimm 的回复:]
回复二楼：
但是我的表单要显示表中的数据，好有其他几个操作的，撤销数据环境这个不太可能，我现在试了试，她说我的日期索引不唯一，我两个表都是以日期为索引的，其中账本为主索引，收入表为普通索引！还是要谢谢你！！
[/Quote]
出现这个问题我感觉是你的每天不一定是一笔账，所以日期不应该做主索引的。修改为普通索引试试。

[华夏小卒]

a,b,c 也代表工作区，很容易出错
一般变量不用a，b，c.....

[xiaoshengaimm]

我收入表不是每天一笔账的，但是账本是每天一笔帐的，所以收入表是普通索引，账本是主索引