| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]插入行后定位鼠标定位当前行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104337) |
| -- 作者：cd_tdh -- 发布时间：2017/7/27 15:32:00 -- [求助]插入行后定位鼠标定位当前行 下面代码，插入行后，鼠标有时能定位到新插入的行，有时不能定位到新插入的行，怎么样让他插入后就直接定位到当前行。 Dim sort As String = Tables("工程款申请").sort |
| -- 作者：有点甜 -- 发布时间：2017/7/27 15:49:00 -- Dim sort As String = Tables("工程款申请").sort Dim r As Row = Tables("工程款申请").Current Tables("工程款申请").AllowMerge =False Tables("工程款申请").sort = "" Dim nr As Row = Tables("工程款申请").InsertNew nr.Move(r.Index + 0) Dim cs() As String = {"序号","项目编码","所属机构","项目名称","建设单位","合同金额","合同工期","开工日期","竣工日期"} For Each c As String In cs nr(c) = r(c) Next Tables("工程款申请").AllowMerge = True Tables("工程款申请").Sort = "序号,项目编码,所属机构" Tables("工程款申请").position = nr.Index [此贴子已经被作者于2017/7/27 18:06:01编辑过]
|
| -- 作者：cd_tdh -- 发布时间：2017/7/27 16:39:00 -- 报错 positon 不是 Table的成员 |
| -- 作者：有点甜 -- 发布时间：2017/7/27 18:06:00 -- Tables("工程款申请").position = nr.Index |
| -- 作者：cd_tdh -- 发布时间：2017/7/27 22:38:00 -- 大师，position还是报错，不是Table的成员啊？ |
| -- 作者：有点甜 -- 发布时间：2017/7/27 22:56:00 -- 以下是引用cd_tdh在2017/7/27 22:38:00的发言：
大师，position还是报错，不是Table的成员啊？
不可能
|
| -- 作者：cd_tdh -- 发布时间：2017/7/28 9:11:00 -- 以下是引用有点甜在2017/7/27 22:56:00的发言：
不可能
少一个字母i，惭愧........但还是不是我要的，现在是定位在当前行，我要的是定位到新插入的行，前面我没说清楚。 代码我修改为下面这样有时可以定位，有时又不能。 Tables("工程款申请").position = nr.Index+1 [此贴子已经被作者于2017/7/28 9:16:47编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/7/28 9:18:00 -- Tables("工程款申请").position = Tables("工程款申请").findrow("_Identify = " & nr("_Identify")) |
| -- 作者：cd_tdh -- 发布时间：2017/7/28 9:31:00 -- 谢谢大师，解决了。 |