- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动条自动移动到最后 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96048)
-- 发布时间：2017/2/11 20:39:00
-- 移动条自动移动到最后
问问 怎么点开一个表后下拉条自动拉到最后啊！
感谢 感谢
-- 发布时间：2017/2/12 8:01:00
--
Dim dr As Row = Tables("表A").Rows(Tables("表A").Rows.Count - 1)
With Tables("表A")
Dim a As Integer = dr.Index
Dim b As Integer = .Cols("第一列").Index \' 任何一列都可以
.Select(a,b)
End With
-- 发布时间：2017/2/12 10:15:00
--
参考代码
Tables("表A").Position = Tables("表A").rows.Count - 1
-- 发布时间：2017/2/12 10:40:00
--
谢谢 谢谢 可以了
-- 发布时间：2017/2/18 9:19:00
--
怎么点击按钮 移动条就往下移动一行的距离啊，感谢 感谢
-- 发布时间：2017/2/18 9:55:00
--
Dim t As Table = Tables("表A")
If t.BottomVisibleRow < t.Rows.Count-1 Then
t.Position = t.BottomVisibleRow+1
End If
-- 发布时间：2017/2/18 10:36:00
--
谢谢 感谢 可以是这样吗？相当于只是按了一下 下拉条下面的箭头，感谢 感谢
此主题相关图片如下：qq截图20170218103450.jpg
-- 发布时间：2017/2/18 10:38:00
--
6楼就是
-- 发布时间：2017/2/18 12:24:00
--
谢谢 是的 只是 可以不移动光标吗？只是一定显示的内容 或者只是点了一下下来条的箭头
-- 发布时间：2017/2/18 15:45:00
--
Dim t As Table = Tables("表A")
Dim p As Point = t.ScrollPosition
p.Y = p.Y-21
t.ScrollPosition = p