＋设为首页 ＋添加到收藏夹
Private Sub Grd_Click()
TxtIns.Move Grd.CellLeft + Grd.Left, Grd.Cell + Grd.
TxtIns.Text = Grd.Text
End Sub
我先用上面的代码将输入文本框定位于目标单元格上，显示目标单元 格的内容。
但是一旦滚动Gird，单元格的位置就会发生改变，而此时Txtins的
位置却没有随之改变。
Private Sub Grd_Scroll()
End Sub
但是上面的Scroll函数却不提供任何有关滚动方向和滚动距离的参数。谢谢了
在行列改变时加上 你的那句话
TxtIns.Move Grd.CellLeft + Grd.Left, Grd.Cell + Grd.
TxtIns.Text = Grd.Text
你不会在TXTINS离开焦点的时候隐藏呀
当滚动发生时，
Private Sub Grd_Scroll()
你可以通过计算得出，TxtIns的位置， 我只讲思路，具体编码可能不对。
dim intRow as integer
dim intCol as integer
dim intRows as integer
with grd
intRows= txtins.top/.rowheight 计算到标题栏有多少行
intRow=.toprow+intRows 得到当前行 ，只考虑向下滚动。
if (intRow<.rows)
.row=intRows
else
.row=.rows-1
end if
end with
End Sub
