以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Syscmd.Edit.Copy() 如何使用？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58279)
--  作者：shenhq
--  发布时间：2014/10/14 19:53:00
--  [求助]Syscmd.Edit.Copy() 如何使用？

在“复制手机号码”按钮中的代码：

Dim PhoneTxt As String

For Each r As Row In Tables("报名表")
    If r("手机") <> Nothing
        PhoneTxt= r("手机") & "," & PhoneTxt
    End If
Next

 

点击按钮，将PhoneTxt的值复制在剪贴板上，可以粘贴在别处，请教如何复制变量PhoneTxt的值呢？

是不是用Syscmd.Edit.Copy()？如何使用？
--  作者：有点甜
--  发布时间：2014/10/14 19:54:00
--  

 参考知识  http://www.foxtable.com/help/topics/2069.htm

 
--  作者：shenhq
--  发布时间：2014/10/14 19:57:00
--  

多谢？

那 Syscmd.Edit.Copy() 是用来干嘛的呢？
--  作者：有点甜
--  发布时间：2014/10/14 19:59:00
--  

 复制，当前表，当前单元格的内容的。
--  作者：shenhq
--  发布时间：2014/10/14 21:04:00
--  

Dim PhoneTxt As String
Dim I As Integer =0
For Each r As Row In Tables("报名表")
    If r("手机") <> Nothing
        I=I+1
        PhoneTxt= r("手机") & "," &  PhoneTxt 
    End If
Next
Dim lenPhone As Integer
lenPhone=  Len(PhoneTxt)-1

ClipBoard.SetText(Substring(PhoneTxt,1,lenPhone))
MessageBox.show(PhoneTxt & ",共复制了" & I & "个手机号码!")

 

怎么出现“编译错误：未声明 Substring”
--  作者：有点甜
--  发布时间：2014/10/14 21:09:00
--  

Dim str As String = DataTables("报名表").GetComboListString("手机", "手机 is not null").Replace("|", ",")

ClipBoard.SetText(str)
MessageBox.show(str & ",共复制了" & str.Split(",").length & "个手机号码!")
--  作者：shenhq
--  发布时间：2014/10/14 21:14:00
--  
以下是引用有点甜在2014-10-14 21:09:00的发言：

Dim str As String = DataTables("报名表").GetComboListString("手机", "手机 is not null").Replace("|", ",")

ClipBoard.SetText(str)
MessageBox.show(str & ",共复制了" & str.Split(",").length & "个手机号码!")

谢谢。因为不使用Datatable,所以不能用GetComboListString
--  作者：shenhq
--  发布时间：2014/10/14 21:16:00
--  
Substring 怎么用呢？
--  作者：有点甜
--  发布时间：2014/10/14 21:17:00
--  

为什么不能

 

Dim str As String = DataTables("报名表").GetComboListString("手机", iif(Tables("报名表").Filter>"", Tables("报名表").filter, "1=1") & " and 手机 is not null").Replace("|", ",")

ClipBoard.SetText(str)
MessageBox.show(str & ",共复制了" & str.Split(",").length & "个手机号码!")
--  作者：shenhq
--  发布时间：2014/10/14 21:20:00
--  
因为报名表已经在窗口中通过目录树筛选，用的是table
[此贴子已经被作者于2014-10-14 21:20:10编辑过]