# Re: 请教个位程式高手一个蛮困难的问题

Posted by Amos on August 17, 1998 at 17:43:04:

In Reply to: 请教个位程式高手一个蛮困难的问题 posted by 翔仔 on August 17, 1998 at 13:23:55:

: I have a test.mdb file ,include A table and B table
: A table: w x y z 栏位
: B table: w p q r s 栏位
: 欲从B table中过滤出一些recordset后将这些recordset与A table建立关联,再产生一个cross talbe.以下是本人的作法但是此作法浪费太多时间，请教个位高手是否有其它的方法，谢谢！
: 作法:将B table 产生的recordset存入C table 再去处理资料

: db.execute "select * into [C] where [B].[r]>20 "
: data1.recordsource="transform sum([C].[p]*[C].[q]) as [总合] select[A].[y] from [A] inner join [C] on [A].[w]=[C].[w] group by [A].[y] pivot [C].[s]
: data1.refresh ( 建立一个cross table)
: db.execute "delete from [C]"
: db.close
: data1.database.close
: dbengine.compactdatabase test.mdb temp.mdb
: kill test.mdb
: name temp.mdb test.mdb

: 以上是我程式部分，希望有更好的方法use SQL ,DAO ,DATA1 使程序更简化且更有效率.
: 谢谢

若你是用Access 下SQL的话, 可用Pivot command
VB 还没有试过, 应该可以, 可是是否会传回Result set
就有待试试了.

Follow Ups:

- 建立 QueryDef 小吴 07:39:15 8/18/98 (1)
  - 感谢各位高手的帮忙，谢谢(无内容) 翔仔 07:27:48 8/19/98 (0)