- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]拼接问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110523)
-- 发布时间：2017/12/4 21:51:00
-- [求助]拼接问题
在表A中，当我选中第一列的几行时，自动读取我选中这几行中的内容，并将这些内容拼接成一个字符串，求助如何编写代码：
例如：
此主题相关图片如下：2qnn2}bh{wnwvzx2ln5wb`m.png
此主题相关图片如下：2qnn2}bh{wnwvzx2ln5wb`m.png-- 发布时间：2017/12/4 22:01:00
--
参考：http://www.foxtable.com/webhelp/scr/0647.htm
AfterSelRangeChange事件
Dim s As String
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
s = s & "," & e.Table.Rows(i)(e.NewRange.LeftCol)
Next
ClipBoard.SetText(s.Trim(","))
-- 发布时间：2017/12/5 15:02:00
--
感谢提供的方法，终于弄出来了：
\'获取选中当前行
Dim s As String
Dim Result As DialogResult
Result = MessageBox.Show("是否要执行此操作", "提示", MessageBoxButtons.YesNo)
If Result = DialogResult.No Then
Return
Else
Dim t As Table = Tables("表A")
If t.Current Is Nothing Then Return
If t.TopPosition < 0 Then Return \'如果选定区域不包括数据行
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
If r.IsNull("第一列")= True Then Continue For
s = s & "," & r("第一列")
t.Rows(i).Save()
Next
MessageBox.show(s.Trim(","))
End If
[此贴子已经被作者于2017/12/6 9:42:21编辑过]