我调试了你的程序,如果进行一次【复制】操作之后,连续进行多次【粘贴】操作,第二次的时候shv.SheetName = String.Empty就会报错,我修改了一下【粘贴】事件,可以【复制】一次之后连续【粘贴】- Private Sub TSMenu_L_Paste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSMenu_L_Paste.Click
- Dim shv As New SheetView()
- If Not copiedSheetView Is Nothing Then
- 'shv = copiedSheetView
- shv = CopySheet(copiedSheetView)
- Try
- shv.SheetName = String.Empty '执行第二次异常,不允许赋空值
- spreadArea.Sheets.Insert(spreadArea.ActiveSheetIndex, shv)
- Catch ex As Exception
- End Try
- End If
- End Sub
复制代码 |