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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表事件

共有4655人关注过本帖树形打印复制链接主题：报表事件

aaa1234

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

加好友

发短信

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

报表事件

Post By：2022/1/11 12:03: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, 200, 200 * (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

有点蓝

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

加好友

发短信

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

Post By：2022/1/11 13:33:00 [只看该作者]

只能暂停执行代码1秒

System.Threading.Thread.Sleep(1000)

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 13:39:00 [只看该作者]

应该放在哪里合适呢

有点蓝

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

加好友

发短信

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

Post By：2022/1/11 13:44:00 [只看该作者]

代码最后

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 13:57: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, 200, 200 * (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

System.Threading.Thread.Sleep(1000)

End If

这里吗

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 14:37:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.10.2

错误所在事件：窗口,主控窗口,Button23,Click

详细错误信息：

流不支持写入。

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 14:38:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.10.2

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

详细错误信息：

值不能为 null。

参数名: image

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 14:40: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, 200, 200)

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

aaa1234

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

加好友

发短信

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

Post By：2022/1/11 15:05:00 [只看该作者]

老师是哪里错了，为什么会报错这个

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.10.2

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

详细错误信息：

值不能为 null。

参数名: image

有点蓝

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

加好友

发短信

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

Post By：2022/1/11 15:09:00 [只看该作者]

文件不存在，或者无法读取，试试加个判断

Dim img As image = getImage(file)

if img isnot nothing

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

总数 13 1 2 下一页

主题：报表事件