Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出


  共有7185人关注过本帖树形打印复制链接

主题：导出
帅哥哟，离线，有人找我吗？
有点蓝
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/25 14:28:00 [只看该作者]

判断是空值的行就删除所有图片

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 14:30:00 [只看该作者]

emmmm 有没有链接我看一下
[此贴子已经被作者于2021/12/25 14:30:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/25 14:37:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 14:45:00 [只看该作者]

怎么判断空值的行呢老师

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/25 15:10:00 [只看该作者]

看33、35楼

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 15:20: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
system.Threading.Thread.Sleep(50)
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 
Next
Else
FileSys.DeleteDirectory(ProjectPath & "Images,3,3) 删除整个目录
Dim bmp As new bitmap(1,1)
bmp.save(ProjectPath & "Images\图片1.jpg")
bmp.save(ProjectPath & "Images\图片2.jpg")

bmp.Dispose

End If 
End If
End If
这样对吗
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 16:25:00 [只看该作者]

好像也有点问题，导出也是一样，请老师帮我看一下，谢谢您

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/25 16:32:00 [只看该作者]

可以在生成图片前，先把图片1、图片2、...先删除掉

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 16:42: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
system.Threading.Thread.Sleep(50)
Dim img As image = getImage(file)
  FileSys.DeleteFile(ProjectPath & "Images\图片1.jpg",2,2) 
  FileSys.DeleteFile(ProjectPath & "Images\图片2.jpg",2,2) 
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save(ProjectPath & "Images\图片" & i+1 & ".jpg")
bmp.Dispose
End If 
Next
Else
Dim bmp As new bitmap(1,1)
bmp.save(ProjectPath & "Images\图片1.jpg")
bmp.save(ProjectPath & "Images\图片2.jpg")

bmp.Dispose

End If 
这样吗？
End If
End If
这样对吗
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/12/25 17:47:00 [只看该作者]

应该怎么放呢老师

 回到顶部
总数 87 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询