主题：[求助]选定位置

Dim t As Table = Tables("表A")
t.Select(t.Position+1, t.cols("第三列").index)

我测试没问题，做个对应的例子发上来测试一下。

新建一个项目，然后上传上来测试

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

你没有上传任何文件。请正确上传。

 

尽量使用ie浏览器访问论坛。

没看懂你为什么要这样做，为什么要用prepareEdit事件，为甚要用sendKey.Send？

 

请说明你要做什么功能，实现的规则是什么？你可能本来的思路就是错的。

请具体说明，在表格做什么操作以后，最后得到什么效果。

 

哪个列填写什么数据，点击什么？

你在prepareEdit事件那样处理代码本身就是错误的。

如果只是定位问题，那就改成下面代码

 

            systemready = False
            If t.Rows.count > t.Position+1 Then
                t.Select(t.Position+1, t.cols("wan").index-1)
            End If
            systemready = True

 

你应该在click事件、afterEdit事件写代码才对的。

 

当点击某个单元格或者输入值以后，循环每一个列，如果列是空的，那就定位到那一列，而不是模拟按下tab、enter键。

 

 

参考

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table