请教如何将数据复制到剪切板 - 编程论坛

#2

sdta2023-03-15 23:08

CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
lcStr = SPACE(0)
SCAN
lcStr = lcStr + SPACE(1) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空

#3

sdta2023-03-15 23:27

实际上楼主是想要这个结果

程序代码：

CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
INSERT INTO tt VALUES ("005")
INSERT INTO tt VALUES ("006")
INSERT INTO tt VALUES ("007")
INSERT INTO tt VALUES ("008")
INSERT INTO tt VALUES ("009")
INSERT INTO tt VALUES ("010")
lcStr = SPACE(0)
SCAN
lcStr = lcStr + IIF(RECNO()>4 and MOD(RECNO(),4)=1, CHR(13)+CHR(10), SPACE(1)) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空
MESSAGEBOX(_CLIPTEXT)

只有本站会员才能查看附件，请登录

#4

csyx2023-03-15 23:54

Create Cursor test (姓名 V(10), 性别 C(2), 平均分 I)
Insert into test (姓名, 性别, 平均分) Values ('张三', '男', 159)
Insert into test (姓名, 性别, 平均分) Values ('李四', '男', 152)
Insert into test (姓名, 性别, 平均分) Values ('王五', '男', 103)

Select 平均分 from test into cursor temp
_vfp.DataToClip()
_cliptext = Strtran(_cliptext, Chr(13), ' ')
MessageBox(_cliptext)

#5

吹水佬2023-03-16 06:08

使用 _vfp.DataToClip() 要注意的是某些数据类型字段不支持。

#6

schtg2023-03-16 06:36

学习啦！

#7

hytizj0232023-03-16 09:19

以下是引用sdta在2023-3-15 23:27:46的发言：

实际上楼主是想要这个结果
CREATE CURSOR tt (奖号 c(3))
INSERT INTO tt VALUES ("001")
INSERT INTO tt VALUES ("002")
INSERT INTO tt VALUES ("003")
INSERT INTO tt VALUES ("004")
INSERT INTO tt VALUES ("005")
INSERT INTO tt VALUES ("006")
INSERT INTO tt VALUES ("007")
INSERT INTO tt VALUES ("008")
INSERT INTO tt VALUES ("009")
INSERT INTO tt VALUES ("010")
lcStr = SPACE(0)
SCAN
lcStr = lcStr + IIF(RECNO()>4 and MOD(RECNO(),4)=1, CHR(13)+CHR(10), SPACE(1)) + 奖号
ENDSCAN
_CLIPTEXT = SUBSTR(lcStr,2) && 剪切板用完后最好清空
MESSAGEBOX(_CLIPTEXT)

版主牛逼了

，都知道我想要撒结果了，感谢啊！