指针MOVE的问题,请版主与大侠指点

zyz0055

指Private Sub Command27_Click() Dim i As Integer For i = 1 To Me.Text5 Me.出荷计画子窗体.Form.Recordset.MoveNew Me.出荷计画子窗体.Controls("需求日").Value = Me.Text1 Me.出荷计画子窗体.Controls("出荷日").Value = Me.Text2 Me.出荷计画子窗体.Controls("客户").Value = Me.Text3 Me.出荷计画子窗体.Controls("运输").Value = Me.Text4 Me.出荷计画子窗体.Controls("到港日").Value = Null Me.出荷计画子窗体.Controls("产品名称").Value = Null Me.出荷计画子窗体.Controls("计画出荷").Value = Null Me.出荷计画子窗体.Controls("PO号码").Value = Null Me.出荷计画子窗体.Controls("实际出荷").Value = 0 Next i End Sub

在下想在窗体中一次性新增Text5 的行数,并使部分数据的值默认为Text1\2\3\4 的值.代码中Me.出荷计画子窗体.Form.Recordset.MoveNew之MoveNew不被支持？？？？？

请版主与各位知情者指点一下或指条明路