大家看看这段代码。

Question

Private Sub PrintOrder(lOrderID As Long)
Dim rs As Recordset
' Print a specific order based on a parameter
sSQL = "SELECT * FROM Invoice WHERE OrderID = " & _ 
Str(lOrderID)
Set rs = dbOrderSystem.OpenRecordset(sSQL)
Load rptOrders ' Set the recordset property to our VB recordset
Set rptOrders.dcRptData.Recordset = rs ' Print the report
rptOrders.PrintReport
End Sub在一个帮助文件看到的。有关active report ADO
dbOrderSystem　－－－这是怎么定义出来的。这是一个连接变量吗、？

Answer 1

kingcom:我操死你妈!不要以为只有你会用马甲!我也会!不要以为你多牛,我鼠标一点就封了你!