- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]增加行后怎么才能自动粘贴 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131891)
-- 发布时间：2019/3/8 12:23:00
-- [求助]增加行后怎么才能自动粘贴
做了一个窗口，在窗口中增加了一个按钮，代码如下：
\'增加行
Dim hs As Integer
If InputValue(hs,"增加行","请输入需要增加的行数")
With Tables("表A")
Dim r As Row = Tables("表A").AddNew(hs)
End With
End If
\'定位
Tables("表A").Select(0,2)
\'粘贴
Syscmd.Edit.Paste()
增加行后粘贴命令没用，不能将原来复制的内容粘贴，只能手动CTRV+V才可以
[此贴子已经被作者于2019/3/8 13:47:50编辑过]
-- 发布时间：2019/3/8 14:10:00
--
\'粘贴
basemainform.Select
Sendkeys.Send("^V")
-- 发布时间：2019/3/8 22:13:00
-- 回复：（有点蓝）'粘贴basemainform.SelectSendkeys.S...
增加后开始可以，但是后面就一直不行了，不能自动粘贴了
-- 发布时间：2019/3/8 22:21:00
--
后面做了什么操作，是怎么操作的
-- 发布时间：2019/3/8 23:15:00
-- 回复：（有点蓝）后面做了什么操作，是怎么操作的
没有做什么操作了，我上传附件麻烦看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:计算平均值.foxdb |
代码放在窗口中的增加行按钮内
-- 发布时间：2019/3/9 8:49:00
--
basemainform.Select是针对主表的，如果是窗口表
\'定位
Tables("表A").Select(0,1)
e.Form.Controls("Table1").Select
Sendkeys.Send("^V")
目的是为了让表获取输入焦点。不同场景的用法是不一样的，学习要学会多问几个为什么：为什么别人用这样的代码就可以实现。知其所以然，而不是生搬硬套
-- 发布时间：2019/3/9 9:52:00
-- 回复：（有点蓝）basemainform.Select是针对主表的，如...
好的，谢谢，我再帮助文档中没有找到
basemainform对应的说明，也就不知道是什么意思 |
-- 发布时间：2019/3/9 10:25:00
--
这个可以在论坛搜搜，指的是Foxtable的主界面窗口
-- 发布时间：2019/3/9 11:28:00
-- 回复：（有点蓝）这个可以在论坛搜搜，指的是Foxtable...
好的，谢谢