📄 4802.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 请教个位程式高手一个蛮困难的问题</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 请教个位程式高手一个蛮困难的问题</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:amoschen@email.gcn.net.tw">Amos</a> on August 17, 1998 at 17:43:04:<p>
In Reply to: <a href="4797.html">请教个位程式高手一个蛮困难的问题</a> posted by 翔仔 on August 17, 1998 at 13:23:55:<p>
: I have a test.mdb file ,include A table and B table<br>: A table: w x y z 栏位<br>: B table: w p q r s 栏位<br>: 欲从B table中过滤出一些recordset后将这些recordset与A table建立关联,再产生一个cross talbe.以下是本人的作法但是此作法浪费太多时间，请教个位高手是否有其它的方法，谢谢！<br>: 作法:将B table 产生的recordset存入C table 再去处理资料<p>: db.execute "select * into [C] where [B].[r]>20 "<br>: 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]<br>: data1.refresh   ( 建立一个cross table)<br>: db.execute "delete from [C]"<br>: db.close<br>: data1.database.close<br>: dbengine.compactdatabase test.mdb temp.mdb<br>: kill test.mdb<br>: name temp.mdb test.mdb<p>: 以上是我程式部分，希望有更好的方法use SQL ,DAO ,DATA1 使程序更简化且更有效率.<br>:             谢谢<p>若你是用Access 下SQL的话, 可用Pivot command<br>VB 还没有试过, 应该可以, 可是是否会传回Result set<br>就有待试试了.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4802-->
<!--top: 4821--><li><a href="4821.html">建立 QueryDef</a> <b>小吴</b> <i>07:39:15 8/18/98</i>
(<!--responses: 4821-->1)
<ul><!--insert: 4821-->
<!--top: 4852--><li><a href="4852.html">感谢各位高手的帮忙，谢谢(无内容)</a> <b>翔仔</b> <i>07:27:48 8/19/98</i>
(<!--responses: 4852-->0)
<ul><!--insert: 4852-->
</ul><!--end: 4852-->
</ul><!--end: 4821-->
</ul><!--end: 4802-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -