20574.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 22 行

HTML

22 行

<html>  <head>    <title>如何加快庶速度呢??t.k.s.</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>如何加快庶速度呢??t.k.s.</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:domybest@tcts.seed.net.tw">daniel</a> on October 24, 1999 at 11:09:40:<p> Set rs2 = db.OpenRecordset("人事资料表", dbOpenDynaset)<br>   If rs2.RecordCount <> 0 Then  <br>      rs2.MoveFirst<br>      while not rs2.eof<br>        sql = "select * from 员工请假表 where 工号='" & rs2![工号] &   "'" & " and " & "year(请假日期)-1911=" & Val(Left$(mstryymm, 2)) & " and " & "month(请假日期)=" & Val(Right$(mstryymm, 2))<br>        Set rs3 = db.OpenRecordset(sql, dbOpenDynaset)<br>        If rs3.RecordCount <> 0 Then<br>           rs3.MoveFirst<br>           While Not rs3.EOF<br>              .<br>              .                <br>              rs3.MoveNext<br>           Wend<br>        End If<br>        '<br>        sql = "select * from 员工加班表 where 工号='" & rs2![工号] & "'" & " and " & "year(请假日期)-1911=" & Val(Left$(mstryymm, 2)) & " and " & "month(加班日期)=" & Val(Right$(mstryymm, 2))<br>        Set rs4 = db.OpenRecordset(sql, dbOpenDynaset)<br>        If rs4.RecordCount <> 0 Then<br>           rs4.MoveFirst<br>           While Not rs4.EOF<br>              .<br>              .                <br>              rs4.MoveNext<br>           Wend<br>        End If<br>        '<br>        .<br>        . <br>        rs2.MoveNext<br>      wend                         <br>   endif<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20574--></ul><!--end: 20574--><br><hr size=7 width=75%><p></body></html>

20574.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 20574.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?