以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  升级后项目错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136637)
--  作者：aidimeng
--  发布时间：2019/6/18 9:11:00
--  升级后项目错误
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编辑过]
--  作者：有点甜
--  发布时间：2019/6/18 9:26:00
--  

 

升级到最最最新版，我测试没问题。

 

 
--  作者：aidimeng
--  发布时间：2019/6/18 9:33:00
--  
之前没事，今天升级后就没不行了
--  作者：有点甜
--  发布时间：2019/6/18 10:02:00
--  
以下是引用aidimeng在2019/6/18 9:33:00的发言：
之前没事，今天升级后就没不行了

 

我测试这段代码没问题

 

Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For i As Integer = 0 To 9 \'向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Sheet(10,2).Value = New XLS.Picture(GetImage("d:\\test.jpg"))
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()