Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加行后怎么才能自动粘贴


  共有2852人关注过本帖树形打印复制链接

主题：[求助]增加行后怎么才能自动粘贴
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		[求助]增加行后怎么才能自动粘贴  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点蓝）'粘贴basemainform.SelectSendkeys.S...  发帖心情 Post By：2019/3/8 22:13:00 [显示全部帖子]

增加后开始可以，但是后面就一直不行了，不能自动粘贴了

 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点蓝）后面做了什么操作，是怎么操作的  发帖心情 Post By：2019/3/8 23:15:00 [显示全部帖子]

没有做什么操作了，我上传附件麻烦看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计算平均值.foxdb

代码放在窗口中的增加行按钮内
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点蓝）basemainform.Select是针对主表的，如...  发帖心情 Post By：2019/3/9 9:52:00 [显示全部帖子]

好的，谢谢，我再帮助文档中没有找到
basemainform对应的说明，也就不知道是什么意思
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点蓝）这个可以在论坛搜搜，指的是Foxtable...  发帖心情 Post By：2019/3/9 11:28:00 [显示全部帖子]

好的，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询