Dim WithEvents adoPrimaryRS As Recordset
Dim adoPlexRS As ADODB.Recordset
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CY\Cy.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 合計,收款方式,折讓,客戶編號,訂單號碼,送貨方式,現金銷貨,異動說明,發票開立,稅金,結帳月份,業務員,實收,銷貨日期,銷貨單號,應收 from 銷貨單 Order by 銷貨單號", db, adOpenStatic, adLockOptimistic
Set adoPlexRS = New ADODB.Recordset
adoPlexRS.Open "select 銷貨單細目.折數,銷貨單細目.金額,銷貨單細目.品名,銷貨單細目.規格,銷貨單細目.單位,銷貨單細目.單價,銷貨單細目.詳細序號,銷貨單細目.廠牌,銷貨單細目.數量,銷貨單細目.編號,銷貨單細目.銷貨單號 from 銷貨單細目,銷貨單 where 銷貨單細目.銷貨單號 = 銷貨單.銷貨單號 Order by 編號", db, adOpenStatic, adLockOptimistic
End Sub