13569.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<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 Scott on May 30, 1999 at 01:42:13:<p>
In Reply to: <a href="13561.html">再请教,我有此不明白?</a> posted by kkcheung on May 29, 1999 at 22:05:46:<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>:  1.)[send_name]与 send_name有什么分别?<br>答:不好意思,type error,但是一般基础书籍均有详述<br>:  2.)加上!,是什么作用?<br>答:tempset![send_name]如同tempset("send_name")<br>:  3.)with rs 是什么意思?<br>答:利用with rs.....end with可减轻程式执行时,一<br>   直去辨识物件,如此一来可以加速程式之执行<br>                            with tempset<br>while not tempset.eof       while not .eof<br>temp1=tempset![send_name]   temp1=![send_name]<br>temp2=tempset![cus_name]    temp2=![cus_name]<br>temp3=tempset![class_name]  temp3=![class_name]<br>temp4=tempset![weight]      temp4=![weight]<br>wend                        wend<br>                            end with
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13569-->
</ul><!--end: 13569-->
<br><hr size=7 width=75%><p>

</body></html>

13569.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 13569.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电子书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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