SelHeight 不起作用

良子　发表于：2012-09-03 08:44:42 　

本人做了一个软件，只能选一行复制，请老师帮助一下，怎样才能选多行。谢谢

Private Sub Command25_Click()
Dim i As Long, j As Long
Dim ctls As Controls, ctl As Control
Set ctls = Me.Child2.Form.Controls
Me.Child2.SetFocus
Dim MyTop As Long
Dim MyHeight As Long
MyTop = Me.查询7.Form.SelTop
MyHeight = Me.查询7.Form.SelHeight

For i = 0 To MyHeight ' 选定的行数
    Me.查询7.Form.SelTop = MyTop + i
    If Me.Child2.Form.NewRecord <> True Then
        DoCmd.RunCommand acCmdRecordsGoToNew '增加一条记录
    End If
    For Each ctl In ctls
        If ctl.ControlType <> acLabel Then
            ctl.Value = Me.查询7.Form.Controls(ctl.name).Value

        End If
    Next ctl
    Me.Child2.Form.Recalc
Next i

End Sub

Top

宏鹏发表于：2012-09-03 13:11:43

参考这示例http://www.accessoft.com/article-show.asp?id=5145，示例中SelHeight是写在子窗体的退出事件中的

Top

良子发表于：2012-09-03 17:16:13

谢谢你的帮助，我看的就是这个软件，可还是只能复制一行，不知该怎么做。

Top

良子发表于：2012-09-03 19:08:52

其中 MyHeight = Me.查询7.Form.SelHeight

SelHeight一直等于0为什么。

Top