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


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

主题:[求助][求助] 复制粘贴在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
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
goodhawk
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:120 积分:1134 威望:0 精华:0 注册:2018/3/22 15:58:00
  发帖心情 Post By:2019/2/13 17:24:00 [显示全部帖子]

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

 回到顶部