有关财务明细表的插入问题

[sybase2000]

有一个类似财务明细表的一个表,部分内容如下:

科目名称 发生额 余额
100005 100.00 100.00
100005 -20.00 80.00
100005 300.00 380.00
100009 500.00 700.00
100009 -100.00 600.00

该表是按"科目名称"字段值的大小排序的有序表 ,余额为该科目名称的上一笔余额加上发生额

现另有以下一个表的数据将插入到上表中:
100005 100.00 450.00
100005 -30.00 350.00
100010 20.00 20.00
100009 50.00 650.00

插入要求:首先在有序表中查找有无该科目名称,若有,根据有序表中该科目名称中最后一笔余额和该表中的发生额相比较,以确定先插入哪一笔,若无,就将该记录按有序表的顺序插入到有序表中
插入后有序表的内容如下:
100005 100.00 100.00
100005 -20.00 80.00
100005 300.00 380.00
100005 -30.00 350.00
100005 100.00 450.00
100009 500.00 700.00
100009 -100.00 600.00
100009 50.00 650.00
100010 20.00 20.00


实现这样的功能代码应该如何写?

[sybase2000]

在哪个表中加一排序ID?

[十豆三]

以下代码你试一下，我没有测试：

SET DELETED ON
LOCAL LSkmmc,LNfse,LNye1,LNye2,LNjlh
USE 财务明细表
INDEX ON 科目名称 TO temp_sy
TOTAL ON 科目名称 TO temp1
USE temp1 IN 0
USE 数据表 IN 0 &&此表为要插入到财务明细表中的表
SELECT temp
SCAN
LSkmmc=科目名称
SELECT 数据表
SET FILTER TO 科目名称=LSkmmc
COUNT TO A1
IF A1>0
SELECT 财务明细表
SET FILTER TO 科目名称=LSkmmc
GO BOTTOM
LNjlh=RECNO()
SET FILTER TO
GO LNjlh
LNye2=余额
SELECT 数据表
GO TOP
DO WHILE NOT EOF()
IF 余额=发生额+LNye2
LNfse=发生额
LNye1=余额
DELETE
GO TOP
SELECT 财务明细表
INSERT BLANK
Replace 科目名称 WITH LSkmmc,发生额 WITH LNfse,余额 WITH LNye1
SELECT 数据表
LOOP
ENDIF
SKIP
ENDDO
ENDIF
ENDSCAN
SELECT 数据表
SET FILTER TO
PACK
INDEX ON 科目名称 TO temp_sy1
GO TOP
DO WHILE NOT EOF()
INSERT INTO 财务明细表 (科目名称,发生额,余额) VALUES (数据表.科目名称,数据表.发生额,数据表.余额)
SKIP
ENDDO
MESSAGEBOX("插入完成！",64,"信息提示")

[sybase2000]

谢谢,调试成功,只因我的财务明细表记录数现在已经有800多万条,处理起来非常慢,有没有更快一点的方法?

[十豆三]

把最后一段改一下，：

SELECT 数据表
SET FILTER TO
PACK
INDEX ON 科目名称 TO temp_sy1
use
select 财务明细表
append from 数据表
MESSAGEBOX("插入完成！",64,"信息提示")

[十豆三]

根据你的需求，再优化代码，应该也快不了多少。

[marki]

考虑加一排序ID