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


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

主题:[求助]增加行后怎么才能自动粘贴

帅哥哟,离线,有人找我吗?
紫色幽魂
  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


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/8 14:10:00 [只看该作者]

'粘贴

basemainform.Select
Sendkeys.Send("^V")

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


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)'粘贴basemainform.SelectSendkeys.S...  发帖心情 Post By:2019/3/8 22:13:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/8 22:21:00 [只看该作者]

后面做了什么操作,是怎么操作的

 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)后面做了什么操作,是怎么操作的  发帖心情 Post By:2019/3/8 23:15:00 [只看该作者]

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

代码放在窗口中的增加行按钮内

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/9 8:49:00 [只看该作者]

basemainform.Select是针对主表的,如果是窗口表

'定位
Tables("表A").Select(0,1)
e.Form.Controls("Table1").Select
Sendkeys.Send("^V")

目的是为了让表获取输入焦点。不同场景的用法是不一样的,学习要学会多问几个为什么:为什么别人用这样的代码就可以实现。知其所以然,而不是生搬硬套

 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)basemainform.Select是针对主表的,如...  发帖心情 Post By:2019/3/9 9:52:00 [只看该作者]

好的,谢谢,我再帮助文档中没有找到
basemainform对应的说明,也就不知道是什么意思

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111420 积分:567176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/9 10:25:00 [只看该作者]

这个可以在论坛搜搜,指的是Foxtable的主界面窗口

 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)这个可以在论坛搜搜,指的是Foxtable...  发帖心情 Post By:2019/3/9 11:28:00 [只看该作者]

好的,谢谢

 回到顶部