Office中国论坛/Access中国论坛

标题: 请教：连续窗体如何选中列？ [打印本页]

作者: 简 时间: 2012-3-30 22:02
标题: 请教：连续窗体如何选中列？
采用t小宝的方法可以解决连续窗体选中行的问题，我想问，如何在连续窗体选中列呢？

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

作者: 简 时间: 2012-3-31 22:44

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

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

作者: kangking 时间: 2012-4-1 10:14
退一步海阔天空，为什么不用数据表窗体？

作者: todaynew 时间: 2012-4-1 12:51

简发表于 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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)