⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 13558.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:r29910@email.sps.mot.com">Scott</a> on May 29, 1999 at 16:29:33:<p>
In Reply to: <a href="13552.html">一个想透了脑的程式 !!!</a> posted by kkcheung on May 29, 1999 at 13:26:38:<p>
: Do While Not tempset.EOF<br>: temp1 = tempset.Fields!send_name :temp2 = tempset.Fields!CUS_name<br>: temp3 = tempset.Fields!class_name:temp4 = tempset.Fields!Weight<br>: Printer.Print Tab(2); temp1; Tab(10); temp2; Tab(40); temp3; Tab(55); temp4<br>: tempset.MoveNext<p>: If Not tempset.EOF Then<br>: If temp1 <> tempset.Fields!send_name Then<br>: Printer.NewPage<br>: temp1 = tempset.Fields!send_name<br>: End If<br>: End If<p>: 上面一段程式是如果temp1不相同上一个temp1,便newpage.<br>: 出来的结果是:<br>: aaaa,bbbb,cccc,1000<br>: aaaa,bbbb,cccc,500<br>: aaaa,bbbb,dddd,200<br>: aaaa,zzzz,cccc,200<br>: aaaa,zzzz,cccc,400<br>: 怎样可以张结果改成<br>: aaaa,bbbb,cccc,1500<br>: aaaa,bbbb,dddd,200<br>: aaaa,zzzz,cccc,600<br>: 希望大家明白我意思.谢谢!<br>============================<br>set rs=db.openrecordset("select [send_name],[cus_name],[class_name],sum([weight]) as nweight _<br>                         from tempset group by send_name,cus_name,class_name",dbopensnapshot)<br>with rs<br>.movefirst<br>while not .eof<br>Printer.Print Tab(2); ![send_name]; Tab(10); ![cus_name]; Tab(40); ![class_name]; Tab(55); ![nweight]<br>wend<br>.close<br>end with<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13558-->
<!--top: 13561--><li><a href="13561.html">再请教,我有此不明白?</a> <b>kkcheung</b> <i>22:05:46 5/29/99</i>
(<!--responses: 13561-->2)
<ul><!--insert: 13561-->
<!--top: 13570--><li><a href="13570.html">Re: 再请教,我有此不明白?</a> <b>Scott</b> <i>01:45:46 5/30/99</i>
(<!--responses: 13570-->0)
<ul><!--insert: 13570-->
</ul><!--end: 13570-->
<!--top: 13569--><li><a href="13569.html">Re: 再请教,我有此不明白?</a> <b>Scott</b> <i>01:42:13 5/30/99</i>
(<!--responses: 13569-->0)
<ul><!--insert: 13569-->
</ul><!--end: 13569-->
</ul><!--end: 13561-->
</ul><!--end: 13558-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -