ÎÒÏëÒª²éѯ ¹ºÒ©ÈÕÆÚÓ뵱ǰÈÕÆÚСÓÚ7Ìì¡£µÄÓï¾ä¡£µ«ÊDz»ÖªµÀΪʲôÀϳö´í°¡£¬Ð»Ð»ÁË¡£
˵Ã÷£ºÏÂÃæµÄ´úÂëÒѾ¿ÉÒÔʵÏÖÁË¡£µ«ÊÇÈç¹ûÌìÊýΪ±äÁ¿¸ÃÈçºÎÐ´ÄØ£¿Ð»Ð»
ÎÒ°Ñ-7¸Ä³É -aa¾Í²»ÐУ¬ÇÒaaΪ7ÇÒÊÇÊýÖµÐÍ¡£
strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #"-7 & DateValue(txt1data.Text) & "# and ÐÕÃû like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"
strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "#-7 and ÐÕÃû like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"
Â¥ÉϵÄûÀí½âÒâ˼°¡£¡ÎÒÊÇ˵Èç¹ûÊDZäÁ¿¸ÃÔõôд£¿²»ÊÇ7
ǰºóÁ½¸öÖØ¸´ÁË
strSql = "select * from info where ¹ºÒ©ÈÕÆÚ > #"-7 & DateValue(txt1data.Text) & "# and ÐÕÃû like '%" & strname & "%' or µç»° like '%" & strtel & "%' and ¹ºÒ©ÈÕÆÚ > #" & DateValue(txt1data.Text) & "# -7"
ÎÒÊÇÒª¼õ°¡¡£²»ÊǼӡ£¡£¡£ÎÒÊÇΪÁËÅжÏ7ÌìÄÚÈç¹ûÒªÊǹºÂò¹ýÒª×ö¸öÌáʾ°¡¡£
ÔΣ¬¸ºÊý²»¾ÍÊǼõÂð£¿
ÄܸøÒ»¸öÍêÕûµÄ´úÂëÂð£¿Ð»Ð»¡££¡£¡
ллÃ÷°×Á˺Ǻǡ£¡£
ÒýÓÃ
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡ ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£ ¹À¼ÆÏ° ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾ ¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬 A.B1,A.B2,... µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......