SELECT ClckdView.ckdh as Doc_Num, ClckdView.txrq as Date, ClckdView.ckrq as OutDate, ClckdView.fydh as PressNo, ClckdView.shum as BookName, ClckmxView.cljc as Material, ClckmxView.kwjc as SavePaper, ClckmxView.sld as Tons, ClckmxView.zcdj as Pricing From ClckdView, ClckmxView WHERE ClckdView.ckdh=ClckmxView.ckdh AND ClckdView.ckdh NOT IN (SELECT Doc_Num from AIS20111015231101.dbo.qzy_VoucherEntry) ORDER BY Doc_Num
From ClckdView, ClckmxView
WHERE ClckdView.ckdh=ClckmxView.ckdh AND ClckdView.ckdh NOT IN (SELECT Doc_Num from AIS20111015231101.dbo.qzy_VoucherEntry)
ORDER BY Doc_Num
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic '设置锁定类型
rst.Open TmpSQLstmt '打开记录集
以上是SQL代码和VB的代码,大家检查一下看看是否有问题