Foxtable(狐表)用户栏目专家坐堂 → 如何在表中批量粘贴单元格


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

主题:如何在表中批量粘贴单元格

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/7 17:06:00 [显示全部帖子]

keydown事件

 

If e.keycode = Keys.V AndAlso e.Control = True Then
    Dim t As Table = Tables("表A")
    For i As Integer = t.LeftCol To t.RightCol
        For j As Integer = t.TopRow To t.BottomRow
            t(j, i) = ClipBoard.GetText
        Next
    Next
   
End If


 回到顶部