Question

access delphi 统计 计算 数据自动更新问题

表1 表2
No roomNo roomNo all
1 101 101 8
2 101 102 7
3 102 103 6
4 102
5 103
问题：
1.在access中 可不可以写一个查询 实现 表1按roomNo 统计出 101 2个 102 2个 103 1个
然后按roomNo 用表2的 all 字段的值 减去 上面统计出来对应的值 再然后 使得出来的那一列值作为新列（new）
new
6
5
5
插入在表二中？
2. 在delphi7中怎么实现上诉结果根据表一的更改 用按键实现自动更新 代码是怎样的？
new 列已存在 把得到的值更新new 列

Answer 1

create table p(
roomNO varchar(50),
num int
)
insert into p select roomno,count(*) from room group by roomno
update roomall set [all]=[all]-p.num from p,roomall where roomall.roomNo=p.roomNo

追问

额，为什么要新建一个表？我补充了 new 这列在表2里是已存在的列

roomall这个是什么？

追答

表一名为room 表二名为roomall
新建一个表是为了保存中间数据

追问

额，你有测试成功么？
我这提示

追答

哦，我用的是SQL server。我试试Access，不知道Access是否有count()函数。我运行了下，create table p(
roomNO varchar(50),
num int
)
insert into p (roomNO,num) select roomno,count(*) from room group by roomno
update roomall set [all]=[all]-p.num from p,roomall where roomall.roomNo=p.roomNo
刚才出错的地方加上(roomNO,num)可以，但是它不填充值。但这几句SQL语句没错，你可以在delphi中去运行。
我感觉Access不能用SQL插入数据，你可以试试。

Answer 2

觉得你的表2的列不固定，每次执行后增加一个新的列，还涉及到新的列的命名，使用到新的列的时候又要得到最后一次增加的列的列名，不明智。执行100次后，表一多出100个列，把人看傻了。

追问

new 列已存在 把得到的值更新new 列