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

📄 13552.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>
  <head>
    <title>一个想透了脑的程式 !!!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>一个想透了脑的程式 !!!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
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><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13552-->
<!--top: 13558--><li><a href="13558.html">Re: 一个想透了脑的程式 !!!</a> <b>Scott</b> <i>16:29:33 5/29/99</i>
(<!--responses: 13558-->3)
<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-->
</ul><!--end: 13552-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

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