专家坐堂-选择某个单元格问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选择某个单元格问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61743)

--  作者：jialihaha
--  发布时间：2014/12/18 11:49:00
--  选择某个单元格问题
如下代码后，Tables("接单部_tbOrders.接单部_tbOrdersDtl").Position = 0
我需要进入该行的第一个单元格，并且进入编辑状态，
应该如何实现？

--  作者：有点甜
--  发布时间：2014/12/18 11:57:00
--
Tables("接单部_tbOrders.接单部_tbOrdersDtl").Select(0,0)
Tables("接单部_tbOrders.接单部_tbOrdersDtl").StartEditing

--  作者：jialihaha
--  发布时间：2014/12/18 13:30:00
--
进入编辑状态了，不过是全选的，能不能使光标在最后边？

--  作者：有点甜
--  发布时间：2014/12/18 14:06:00
--

Tables("表A").Select(0,0)
Tables("表A").StartEditing
Sendkeys.Send("{right}")

--  作者：jialihaha
--  发布时间：2014/12/18 16:28:00
--
这样还是不对，他直接移到右边的单元格了

--  作者：有点甜
--  发布时间：2014/12/18 16:33:00
--
Tables("表A").Select(0,0)
Tables("表A").StartEditing
If Tables("表A")(0,0) <> Nothing Then
    Sendkeys.Send("{right}")
End If

--  作者：jialihaha
--  发布时间：2014/12/18 16:38:00
--
我不是这意思，我截图说说我需要的效果吧
现在的效果：
此主题相关图片如下：tisgfy(~bhpraknb71n1w.png
我想要的效果：
此主题相关图片如下：84@v~z9zr5tmb4~@ld@98w.png

--  作者：有点甜
--  发布时间：2014/12/18 16:48:00
--
就是这种效果啊，我测试没问题
[此贴子已经被作者于2014-12-18 16:48:36编辑过]

--  作者：有点甜
--  发布时间：2014/12/18 16:48:00
--

有什么问题？

Tables("表A").focus
Tables("表A").Select(0,0)
Tables("表A").StartEditing
If Tables("表A")(0,0) <> Nothing Then
    Sendkeys.Send("{right}")
End If

--  作者：jialihaha
--  发布时间：2014/12/18 16:53:00
--
我这里的逻辑是这样的，在ChangeEdit事件里
If Forms("订单").Opened AndAlso e.Row.Index = e.Table.Rows.Count-1 Then
Dim posi As Integer = Tables("接单部_tbOrders.接单部_tbOrdersDtl").Current.Index
Tables("接单部_tbOrders.接单部_tbOrdersDtl").AddNew()
Tables("接单部_tbOrders.接单部_tbOrdersDtl").Position = posi
Tables("接单部_tbOrders.接单部_tbOrdersDtl").Select(posi, 0)
Tables("接单部_tbOrders.接单部_tbOrdersDtl").StartEditing
\'If Tables("接单部_tbOrders.接单部_tbOrdersDtl")(0,0) <> Nothing Then
\'Sendkeys.Send("{right}")
\'End If
End If