📄 17940.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<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:luo570@ms31.hinet.net">小琳</a> on August 26, 1999 at 22:02:34:<p>In Reply to: <a href="17922.html">FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</a> posted by lulu on August 26, 1999 at 16:11:39:<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>试试看!!!<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17940--><!--top: 17949--><li><a href="17949.html">FindFirst的问题....再问一下....Help...help...!!</a> <b>LuLu</b> <i>08:11:01 8/27/99</i>(<!--responses: 17949-->0)<ul><!--insert: 17949--></ul><!--end: 17949--><!--top: 17948--><li><a href="17948.html">Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</a> <b>LuLu</b> <i>07:52:03 8/27/99</i>(<!--responses: 17948-->1)<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--></ul><!--end: 17940--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明

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