感谢提供的方法，终于弄出来了：'获取选中当前行
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编辑过]
加好友 
发短信
Post By：2017/12/4 21:51:00 [只看该作者]
此主题相关图片如下：2qnn2}bh{wnwvzx2ln5wb`m.png