- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师我想想问一下报表事件如何删除透明的图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174338)
-- 发布时间：2022/1/11 16:21:00
-- 老师我想想问一下报表事件如何删除透明的图片
ftp1.host="172.16.120.41"
ftp1.Account = "admin"
ftp1.password = "qw123"
If e.DataRow.IsNull("图片") = False Then \'身份证号码是否为空
Dim fls As List(of String) = e.DataRow.Lines("图片")
For i As Integer = 0 To fls.count - 1
Dim file As String = "c:\\data\\Desert" & i & ".jpg"
If ftp1.Download(fls(i),file) = True Then
Dim img As image = getImage(file)
If img IsNot Nothing
Dim bmp1 As new bitmap(img, 300,300 * (img.height / img.width))
bmp1.save(ProjectPath & "Images\\图片" & i+1 & ".jpg")
bmp1.Dispose
If fls.count = 1 Then
Dim bmp As new bitmap(1,1)
bmp.save(ProjectPath & "Images\\图片2.jpg")
bmp.Dispose
End If
End If
End If
Next
Else
Dim bmp As new bitmap(1,1)
bmp.save(ProjectPath & "Images\\图片1.jpg")
bmp.Dispose
bmp = new bitmap(1,1)
bmp.save(ProjectPath & "Images\\图片2.jpg")
bmp.Dispose
End If
End If
End If
-- 发布时间：2022/1/11 16:23:00
--
没有办法判断图片是不是透明的。
-- 发布时间：2022/1/11 16:25:00
--
但是就是他插入图片的话如果是空的话他会插入一张透明的图片
-- 发布时间：2022/1/11 16:26:00
--
然后1000条数据两千长图片
-- 发布时间：2022/1/11 16:27:00
--
这样
此主题相关图片如下：1641889568(1).jpg
-- 发布时间：2022/1/11 16:38:00
--
这是我的实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例test.zip |
-- 发布时间：2022/1/11 16:39:00
--
这个
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:实例test1.zip |
-- 发布时间：2022/1/11 16:43:00
--
这个没有办法。不然就使用专业报表了。
-- 发布时间：2022/1/11 17:09:00
--
专业报表是怎么样操作的，老师
-- 发布时间：2022/1/11 17:16:00
--
http://www.foxtable.com/webhelp/topics/1166.htm