16,555
社区成员
发帖
与我相关
我的任务
分享
Dim str As String = ""
With DataGridView1
For Each cell As DataGridViewCell In .SelectedCells
str += cell.Value.ToString & vbCrLf
Next
End With
Clipboard.Clear()
Clipboard.SetText(str)'所请求的剪贴板操作失败
Try
Clipboard.Clear()
Clipboard.SetText(str)
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & "重新启动电脑,再试一次!", "提示!", MessageBoxButtons.OK)
End Try