＊＊＊＊＊＊TrueDBGrid的第一列为编号列（字符型），通过点击一按钮直接定位到指定的编号行处？

Question

TrueDBGrid的第一列为编号列（字符型），通过点击一按钮直接定位到指定的编号行处？

Answer 1

首先设为绑定BOUND方式,在运行模式下,设RSYS为记录集,在运行时设定
先设定Set GRIDYSLIST.DataSource = rsysSS = InputBox("请输入编号" , "查找", ST)
rsys.Find "bh=" & SS, 1, adSearchForward(此处按自己需要修改)
If rsys.EOF Then
MsgBox "需求的数据没有找到", vbOKOnly, "查找"
rsys.MoveLast
GRIDYSLIST.MoveLast
GRIDYSLIST.SetFocus
ENDIF
...............

Answer 2

else
tdbgrid.setfource
endif
修改上面的