导出 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有7118人关注过本帖树形打印复制链接主题：导出

aaa1234

小大 71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 9:41:00 [只看该作者]

有喔.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.12.22.1

错误所在事件：Excel报表,BuildDetail

详细错误信息：

GDI+ 中发生一般性错误。

aaa1234

小大 72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 9:45:00 [只看该作者]

替换有多个图片的，可以使用

[&&图片1.jpg,2,2,60,20]

[&&图片2.jpg,2,2,60,20]

最后将BuildDetail事件代码设置为:

If e.Book.TempLate = "111" Then

If e.region = "table_3" Then

Dim ftp1 As new ftpclient

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)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(ProjectPath & "Images\图片" & i+1 & ".jpg")

bmp.Dispose

End If

End If 我用这个是可以的喔

有点蓝

小大 73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/27 9:46:00 [只看该作者]

如果是同样的图片，只能是电脑系统的问题了。

1、有没有安装打印机驱动，没有就装一个。

2、不要在共享里打开项目使用

3、更新显卡驱动到最新版

4、网上搜索安装一下directX，以及Microsoft Visual C++运行环境

https://www.gamersky.com/systools/

aaa1234

小大 74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 9:49:00 [只看该作者]

但是不可能啊，我72楼的代码可以运行的呀

aaa1234

小大 75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 9:50:00 [只看该作者]

就加了个判断删除就不行了

有点蓝

小大 76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/27 9:55:00 [只看该作者]

试试，不行的话我也没有办法了

If e.Book.TempLate = "111" Then

If e.region = "table_3" Then

Dim ftp1 As new ftpclient

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)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(ProjectPath & "Images\图片" & i+1 & ".jpg")

bmp.Dispose

if fls.count = 1 then

Dim bmp As new bitmap(1,1)

bmp.save(ProjectPath & "Images\图片2.jpg")

bmp.Dispose

endif

End If

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

aaa1234

小大 77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 10:41:00 [只看该作者]

此主题相关图片如下：1640572825(1).jpg

有点蓝

小大 78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/27 11:03:00 [只看该作者]

换个不同的变量名

aaa1234

小大 79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/12/27 17:17:00 [只看该作者]

老师我想问一下这个If e.Book.TempLate = "111" Then

If e.region = "table_3" Then

Dim ftp1 As new ftpclient

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)

Dim bmp1 As new bitmap(img, 100, 400 * (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

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 怎么调可以点击图片的时候比例也一样
图片点击可在新窗口打开查看

此主题相关图片如下：d5c7f14aa861d36711c273b7d0644b2.png

有点蓝

小大 80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/27 17:24:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1845.htm

http://www.foxtable.com/webhelp/topics/2378.htm

下一主题 >> << 上一主题

总数 87 上一页 1 2 3 4 5 6 7 8 9 下一页

主题：导出