以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel报表如何能够打印远程图片?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31895)

--  作者:迷狐
--  发布时间:2013/4/22 16:57:00
--  excel报表如何能够打印远程图片?

图片放在FTP服务器内,用EXCEL报表不能直接打印,请问该如何设置?

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

参见员工表,员工资料卡

 

另问:服务器地址如何用代码设置?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130422171432.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-4-22 17:16:15编辑过]

--  作者:XYT
--  发布时间:2013/4/23 9:00:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=31922

[此贴子已经被作者于2013-4-23 9:57:28编辑过]

--  作者:迷狐
--  发布时间:2013/4/23 12:36:00
--  

唐尸三摆手导出带网络图片的excel文件是企业版,我看不了

我现在是这样解决的

增加辅助列,设置好路径


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130423123423.jpg
图片点击可在新窗口打开查看
 

DataColChanged事件

If e.DataCol.Name = "照片" Then \'如果更改的是
    If e.DataRow.IsNull("照片") Then \'是否为空
        e.DataRow("照片2") = Nothing \'如果为空,则清除
    Else
        Dim lst As New List(of String)
        Dim lst2 As New List(of String)
       
        lst = Tables("员工").Current.DataRow.Lines("照片")
        For i As Integer = 0 To Lst.Count - 1
            Dim s As String = Lst(i)
            Dim Index As Integer
            Index = S.LastIndexOf("/")
            s= s.Remove(0,Index+1)
            MessageBox.Show(s, "提示")
            lst2.Add(s) \'增加

        Next
        Tables("员工").Current.DataRow.Lines("照片2") = lst2
    End If
End If