以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助][求助] 复制粘贴在openview的窗体里头  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130984)

--  作者：goodhawk --  发布时间：2019/2/13 16:43:00 --  [求助][求助] 复制粘贴在openview的窗体里头 用了论坛的代码实现复制粘贴+自动增加新行， 我遇到的问题是： 如果这个 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     End If End If

--  作者：有点甜 --  发布时间：2019/2/13 16:55:00 --   具体实例发上来测试。

--  作者：goodhawk --  发布时间：2019/2/13 17:24:00 --   看了一下， 是我这边的问题， 所以暂时就先不用了， 感谢。