以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点击左边按钮,复制窗口中表所在单元格的字符到剪贴板  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118775)

--  作者:湛江智
--  发布时间:2018/5/10 18:16:00
--  [求助]点击左边按钮,复制窗口中表所在单元格的字符到剪贴板

点击左边按钮,复制窗口中表所在单元格的字符到剪贴板

最好实现:窗口中的表是动态的,左边按钮的代码,不要是指定表A

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口表单元格复制失败,请指教.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:f.jpg
图片点击可在新窗口打开查看

--  作者:湛江智
--  发布时间:2018/5/10 18:16:00
--  
Syscmd.Edit.Copy() 按钮用这个代码,不行的
--  作者:有点甜
--  发布时间:2018/5/10 19:00:00
--  

ClipBoard.SetText(CurrentTable.value)


 

http://www.foxtable.com/webhelp/scr/2069.htm

 

[此贴子已经被作者于2018/5/10 19:00:15编辑过]

--  作者:湛江智
--  发布时间:2018/5/15 18:09:00
--  回复:(有点甜)ClipBoard.SetText(CurrentTable.val...

如果光标不在单元格,点击 ClipBoard.SetText(CurrentTable.value) 代码的按钮,报错

要避免报错,加一个判断,怎么写呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:报错.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/5/15 18:58:00
--  
If CurrentTable.value <> Nothing Then
    ClipBoard.SetText(CurrentTable.value)
Else
    msgbox(1)
End If