17948.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行

HTML
27 行
字号 
<html>  <head>    <title>Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:puto@pcmail.com.tw">LuLu</a> on August 27, 1999 at 07:52:03:<p>In Reply to: <a href="17940.html">Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</a> posted by 小琳 on August 26, 1999 at 22:02:34:<p>: : 请问FindFirst可以做数字的搜寻比对吗?<br>: : 我写了段程式如下：是想将资料表中符合Y,M,D三个数值的资料的合约编号加入Combo1中,但却出现”型态不符合”,能否指导一下,是错在哪哩!!我实在是不知哪出了错误!!<p>: : Private Sub Command1_Click()<br>: : Dim todayyear,todaymonth,todayday, Y, M, D as Integer<br>: : todayyear = Year(Now) - 1911<br>: : todaymonth = Month(Now)<br>: : todayday = Day(Now)<br>: : Select Case todaymonth<br>: :     Case 1, 3, 5, 7, 8, 10<br>: :             If todayday > 18 Then<br>: :                D = todayday - 18<br>: :                M = todaymonth + 1<br>: :                Y = todayyear<br>: :             Else<br>: :                D = todayday + 13<br>: :                M = todaymonth<br>: :                Y = todayyear<br>: :             End If<br>: :     Case 4, 6, 9, 11<br>: :             If todayday > 17 Then<br>: :                D = todayday - 17<br>: :                M = todaymonth + 1<br>: :                Y = todayyear<br>: :             Else<br>: :                D = todayday + 13<br>: :                M = todaymonth<br>: :                Y = todayyear<br>: :             End If<br>: :     Case 2<br>: :             If todayday > 15 Then<br>: :                D = todayday - 15<br>: :                M = todaymonth + 1<br>: :                Y = todayyear<br>: :             Else<br>: :                D = todayday + 13<br>: :                M = todaymonth<br>: :                Y = todayyear<br>: :             End If<br>: :     Case 12<br>: :             If todayday > 18 Then<br>: :                D = todayday - 18<br>: :                M = todaymonth + 1<br>: :                M = M Mod 12<br>: :                Y = todayyear + 1<br>: :             Else<br>: :                D = todayday + 13<br>: :                M = todaymonth<br>: :                Y = todayyear<br>: :             End If<br>: :     End Select<br>: :   Data1.Recordset.FindFirst "[结束月]"=Y and "[结束月]"=M and<br>: :   "[结束日]"=D<br>: :   Do While Not Data1.Recordset.EOF<br>: :     Combo1.AddItem Data1.Recordset.Fields("合约编号")<br>: :     Data1.Recordset.MoveNext<br>: :   Loop<br>: : End Sub<p>: :::将<br>: Data1.Recordset.FindFirst "[结束月]"=Y and "[结束月]"=M and<br>: "[结束日]"=D<br>: 换成<br>: Data1.Recordset.FindFirst "[结束月]=" & Y & " and  [结束月]=" & M & " and [结束日]=" & D<br>: 试试看!!!<p>.....小琳...我试过了,虽然不会再出现型态不符的错误,但现在的问题是程式根本没有过滤条件,反而把资料表中的所有合约编号列到combo中了.....再help一下吧....<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17948--><!--top: 18008--><li><a href="18008.html">Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</a> <b>小琳</b> <i>20:33:32 8/27/99</i>(<!--responses: 18008-->0)<ul><!--insert: 18008--></ul><!--end: 18008--></ul><!--end: 17948--><br><hr size=7 width=75%><p></body></html>

17948.html - 源码说明

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

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

⌨️ 快捷键说明

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