站长:运行这们的代码,为什么没反映,真心求教...,
Private Sub Command4_Click()
Dim I As Integer
Dim RS As Recordset
Set RS = Me.窗体2.Form.RecordsetClone
RS.MoveFirst
RS.Move Me.窗体2.Form.SelTop - 1
For I = 1 To Me.窗体2.Form.SelHeight
MsgBox RS![订单ID]
RS.MoveNext
Next I
End Sub