主题：移动条自动移动到最后

问问 怎么点开一个表后下拉条自动拉到最后啊！

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

参考代码

 

Tables("表A").Position = Tables("表A").rows.Count - 1

谢谢 谢谢 可以了 

怎么点击按钮  移动条就往下移动一行的距离啊，感谢 感谢 

谢谢 感谢 可以是这样吗？相当于只是按了一下 下拉条下面的箭头，感谢 感谢 

6楼就是

谢谢  是的 只是 可以不移动光标吗？只是一定显示的内容 或者只是点了一下下来条的箭头