📄 17922.html
字号:
<html> <head> <title>FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>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 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<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17922--><!--top: 17940--><li><a href="17940.html">Re: FindFirst的问题....对各位来说一定是个小问题....Help...help...!!</a> <b>小琳</b> <i>22:02:34 8/26/99</i>(<!--responses: 17940-->3)<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--></ul><!--end: 17922--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -