[求助][求助] 复制粘贴在openview的窗体里头 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][求助] 复制粘贴在openview的窗体里头

共有2465人关注过本帖树形打印复制链接主题：[求助][求助] 复制粘贴在openview的窗体里头

goodhawk

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：120 积分：1134 威望：0 精华：0 注册：2018/3/22 15:58:00

[求助][求助] 复制粘贴在openview的窗体里头 发帖心情

Post By：2019/2/13 16:43:00 [只看该作者]

用了论坛的代码实现复制粘贴+自动增加新行，我遇到的问题是：

如果这个 table，目前用的是 Openview的方式，则粘贴进去就会错位。问题原因我也知道，应该是 t.Select(r,t.ColSel)，

这里select的范围是整个table，如何才能把数据贴到 openview 对应的栏位上呢？

Dim t As Table = e.Table

If e.Control = True AndAlso t.Current IsNot Nothing Then

Dim r As Integer = t.RowSel

If e.KeyCode = keys.V Then

Dim str As String = ClipBoard.GetText

Dim nr As Integer = str.Replace(vblf,"").Trim(vbcr).Split(vbcr).Length + (t.RowSel) - t.Rows.Count

If nr > 0 Then

t.AddNew(nr)

t.Select(r,t.ColSel)

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/13 16:55:00 [只看该作者]

具体实例发上来测试。

goodhawk

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：120 积分：1134 威望：0 精华：0 注册：2018/3/22 15:58:00

Post By：2019/2/13 17:24:00 [只看该作者]

看了一下，是我这边的问题，所以暂时就先不用了，感谢。

主题：[求助][求助] 复制粘贴在openview的窗体里头