主题：[求助]请帮改下，专业报表依次打印图片代码

 必须先下载，再赋值给单元格，参考代码

 

http://www.foxtable.com/help/topics/1402.htm

 

http://www.foxtable.com/help/topics/1208.htm

 

    For j As Integer = 0 To colNames.Length - 1       
        rt.Cells(i Mod aPageCount + 1, 0).Text = i + 1
        rt.Cells(i Mod aPageCount + 1, j+1).Text = tb.Rows(i)(colNames(j))
    Next

 

改成

 

For j As Integer = 0 To colNames.Length - 1
    rt.Cells(i Mod aPageCount + 1, 0).Text = i + 1
    If ColNames(j) = "DingDanMingXi_TuPian" Then
        Network.DownloadFile(tb.Rows(i)(colNames(j)), ProjectPath & "temp.jpg")
        rm.Image = GetImage(ProjectPath & "temp.jpg") '请改为实际的图标名称和路径
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
        rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
        rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
        rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
        rt.Cells(i Mod aPageCount + 1, j+1).RenderObject = rm
    Else
        rt.Cells(i Mod aPageCount + 1, j+1).Text = tb.Rows(i)(colNames(j))
    End If
Next

Network.DownloadFile(tb.Rows(i)(colNames(j)), ProjectPath & "下载的图片" & tb.Rows(i)("商品条码") & ".jpg")

Network.DownloadFile(tb.Rows(i)(colNames(j)), ProjectPath & "下载的图片" & tb.Rows(i)("商品条码") & ".jpg","" ,"" ,True, 100000, True)

不会弄，就上传具体例子。

 

 For j As Integer = 0 To colNames.Length - 1
    rt.Cells(i Mod aPageCount + 1, 0).Text = i + 1
    If ColNames(j) = "DingDanMingXi_TuPian" Then
        Network.DownloadFile(tb.Rows(i)(colNames(j)), ProjectPath & "下载的图片" & tb.Rows(i)("商品条码") & ".jpg","" ,"" ,True, 100000, True) 
        Dim rm As new prt.RenderImage
        rm.Image = GetImage(ProjectPath & "temp.jpg") '请改为实际的图标名称和路径
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
        rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
        rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
        rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
        rt.Cells(i Mod aPageCount + 1, j+1).RenderObject = rm
    Else
        rt.Cells(i Mod aPageCount + 1, j+1).Text = tb.Rows(i)(colNames(j))
    End If
Next

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档.txt

 不可以。你可以下载在同一个文件下，然后最后删除那个文件啊