非常感谢老师的指点，我需要慢慢来消化一下

很不错，我把程序代码复制过来试了下，可以解决问题。多谢老师的鼎力相助，让我又学到了新的知识。

老师，我找到了滚动具体的代号意义
用DoScroll(5)时，滚动了二列就不滚了，
用DoScroll(7)时，可以翻页滚动，也就是说，原来显示10列内容，现在可以自动翻一页滚动到20列，当20列显示完了，再有新数据，就不能继续翻页滚动了。

这个方法也有问题的，要看具体是怎样变动栏目的

试试这样用：
        thisform.grid1.setfocus
        thisform.grid1.DoScroll(5)
        thisform.grid1.SetFocus
        thisform.grid1.ActivateCell(thisform.grid1.ActiveRow, 1)

老师，非常谢谢，我试了一下，只要把及时更新的，表里的行号、列号放进来就行了。
只要这二句：
thisform.grid1.SetFocus
thisform.grid1.ActivateCell(nRow, nCol)