±±¾© | ÉϺ£ | Ìì½ò | ÖØÇì | ¹ãÖÝ | ÉîÛÚ | Ö麣 | ÉÇÍ· | ·ðɽ | ÖÐɽ | ¶«Ý¸ | ÄϾ© | ËÕÖÝ | ÎÞÎý | ³£ÖÝ | ÄÏͨ | ÑïÖÝ | ÐìÖÝ | º¼ÖÝ | ÎÂÖÝ | Äþ²¨ | ̨ÖÝ | ¸£ÖÝ | ÏÃÃÅ | ȪÖÝ | ÁúÑÒ | ºÏ·Ê | Îߺþ | ³É¶¼ | ËìÄþ | ³¤É³ | ÖêÖÞ | Ïæ̶ | Î人 | Äϲý | ¼ÃÄÏ | Çൺ | ÑĮ̀ | Ϋ·» | ×Ͳ© | ¼ÃÄþ | Ì«Ô | Ö£ÖÝ | ʯ¼Òׯ | ±£¶¨ | ÌÆɽ | Î÷°² | ´óÁ¬ | ÉòÑô | ³¤´º | À¥Ã÷ | À¼ÖÝ | ¹þ¶û±õ | ¼Ñľ˹ | ÄÏÄþ | ¹ðÁÖ | º£¿Ú | ¹óÑô | Î÷Äþ | ÎÚ³ľÆë | °üÍ· |
ÓÐÒ»¸ö±í£¬ÎÒÓÃunionÁ¬½ÓÁËÁ½Ìõselect Óï¾ä£¬Ã¿Ìõ Óï¾ä·µ»ØÒ»Ìõ¼Ç¼£¬×é³ÉÒ»×顣ȻºóÓÃmsgboxÏÔʾ²éѯ½á¹û£¬µ«ÊÇû·¨ÏÔʾÁ½Ìõ¼Ç¼£¬×ÜÊÇÖ»ÏÔʾµÚÒ»Ìõ¼Ç¼¡£Ôõô°ì
Ô´ÂëÈçÏ£º
Sub aa()
Dim i As Integer
Dim sqlstr As String
Dim mydb As Database
Dim myds As Recordset
Dim NotInList As String
Dim fld As Field
sqlstr = "select top 1 id,×Ö¶Î1 from a where ×Ö¶Î8 = 1 And ×Ö¶Î9 = 1 union select top 1 id,×Ö¶Î1 from a where id>(select top 1 id from a where ×Ö¶Î8=1 and ×Ö¶Î9=1) and ×Ö¶Î1=(select top 1 ×Ö¶Î1 from a where ×Ö¶Î8=1 and ×Ö¶Î9=1) and ×Ö¶Î9=0"
Set mydb = CurrentDb
Set myds = mydb.OpenRecordset(sqlstr)
'NotInList = "id=" & myds.Fields(0) & ",×Ö¶Î1=" & myds.Fields(1)
For Each fld In myds.Fields
MsgBox fld.Value
Next
'NotInList = myds.Fields
MsgBox myds.RecordCount
End Sub
ÁíÍ⣺ÎÒÏëдһ¸öÑ»·£¬°Ñ²éѯ³öÀ´µÄ½á¹û¼ÓÈëµ½not inÁбíÖУ¬ÕâÑùÿ´Î²éѯ³ö²»Ò»ÑùµÄÒ»×é¼Ç¼£¬¿ÉÒÔÂð£¿
±íÖÐidΪÖ÷¼ü¡£
Regular‰¹edvÿ ?`` ?? @$€?al@)ðÁp??h??ÿÿ?`?Xÿÿÿ???