Exception has been thrown by the target of an invocation.
Unable to cast object of type 'C1.C1Excel.XLPictureShape' to type 'System.IConvertible'.
无法将类型为“C1.C1Excel.XLPictureShape”的对象强制转换为类型“System.IConvertible”。
程序代码如下
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i1 As Integer=0 To 100
For j As Integer=0 To 100
If sheet(i1,j).Value="编制:" Then
sheet(i1,j+1).Value=New XLS.Picture(GetImage(zjy))
sheet(i1,j+3).Value=New XLS.Picture(GetImage(shqm))
sheet(i1,j+5).Value=New XLS.Picture(GetImage(pzqm))
sheet(i1+1,j+3).value=New XLS.Picture(GetImage(drr("质检公章")))
Exit For
End If
Next
Next
[此贴子已经被作者于2019/6/18 9:17:34编辑过]
加好友 
发短信
Post By：2019/6/18 9:11:00 [只看该作者]
