以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设计一个按钮粘贴复制怎么做啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59278)
--  作者：yangwenghd
--  发布时间：2014/10/31 23:17:00
--  设计一个按钮粘贴复制怎么做啊
设计一个通用复制和粘贴应该怎么写代码啊 谢谢 
比如鼠标选择的那个 点击按钮就粘贴或者复制内容 
With CurrentTable
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        .ClipBoard.SetText = 
    End If
End With
应该怎么改啊！感谢 感谢 
--  作者：Bin
--  发布时间：2014/11/1 8:43:00
--  
With CurrentTable
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        ClipBoard.SetText(.Current("某列"))
    End If
End With


 
 CurrentTable.Current("某列")= ClipBoard.GetText()
--  作者：yangwenghd
--  发布时间：2014/11/6 20:22:00
--  
怎么把某列该为光标啊！感谢 感谢 
--  作者：有点甜
--  发布时间：2014/11/6 20:28:00
--  

 什么意思
--  作者：yangwenghd
--  发布时间：2014/11/6 22:36:00
--  
感谢 感谢 就是点击按钮 复制/粘贴，实现的功能是 复制/粘贴到鼠标选择的那个一个表格里的数据，谢谢 谢谢
--  作者：有点甜
--  发布时间：2014/11/6 22:40:00
--  
 楼上就是答案啊，
--  作者：yangwenghd
--  发布时间：2014/12/1 21:37:00
--  

甜甜，能在帮我看看吗？如果复制的内容和粘贴的目标是鼠标选中的那一格应该怎么写啊 ！
感谢 感谢 
设计两个按钮，一个复制 一个粘贴
鼠标随便点击一个可以编辑的格，（不管是表A 还是表B  窗口是共有的 ）点击复制就复制选择的内容，
就相当于快捷键 ctrl+c 和ctrl+v
感谢 感谢 
--  作者：有点甜
--  发布时间：2014/12/1 22:15:00
--  

复制

 

If CurrentTable.Current IsNot Nothing
    If CurrentTable.Current(CurrentTable.ColSel) <> Nothing Then
        ClipBoard.SetText(CurrentTable.Current(CurrentTable.ColSel))
    Else
        ClipBoard.Clear
    End If
End If

 

 

粘贴

 

If CurrentTable.Current IsNot Nothing
    CurrentTable.Current(CurrentTable.ColSel) = ClipBoard.GetText
End If