请教：连续窗体如何选中列？

简

采用t小宝的方法可以解决连续窗体选中行的问题，我想问，如何在连续窗体选中列呢？

todaynew

简 发表于 2012-3-31 22:44
我查了下帮助，帮助里只有说明，没有例子，可以给我个例子学习吗？
在此先谢了。

Private Sub Form_Load()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acLabel Then
            ctrl.OnClick = "=AllClick('" & ctrl.Caption & "')"
        End If
    Next
End Sub

Function AllClick(FieldName As String)
    Dim ctrl As Control
    Dim i As Long
    For Each ctrl In Me.Controls
        If ctrl.Name = FieldName Then
            ctrl.SetFocus
            Me.Form.SelTop = 1
            Me.Form.SelHeight = Me.RecordsetClone.RecordCount
             Exit For
        End If
    Next
End Function

kangking

退一步海阔天空，为什么不用数据表窗体？

简

todaynew 发表于 2012-3-31 12:11
在字段标题的单击事件中用seltop和selheight属性处理即可

我查了下帮助，帮助里只有说明，没有例子，可以给我个例子学习吗？
在此先谢了。

todaynew

在字段标题的单击事件中用seltop和selheight属性处理即可