uploader上传图片后，如何验证图片数量 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")

msgbox("数量1:" & drs.count)

For Each dr As DataRow In drs

Dim file = "e:\web\zsz\d\" & dr("展示照") ’这里去掉UrlEncode就好了

msgbox("e:\web\zsz\d\" & dr("展示照")) ’执行这里提示下图

Dim img As image = getImage(file) '取大图,用于后续处理

msgbox(4)

msgbox("高度:" & img.height & "宽度:" & img.width)

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

msgbox(5)

bmp.save("e:\web\zsz\x\" & dr("展示照"))

bmp.Dispose

dr("展示照缩略图") = dr("展示照")

dr.save

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

[此贴子已经被作者于2017/6/1 8:36:18编辑过]

Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")

msgbox("数量1:" & drs.count)

For Each dr As DataRow In drs

Dim file = "e:\web\zsz\d\" & UrlEncode(dr("展示照"))

If FileSys.FileExists(file)

msgbox("e:\web\zsz\d\" & dr("展示照")) '执行这里提示下图

Dim img As image = getImage(file) '取大图,用于后续处理

If img IsNot Nothing

msgbox(4) '执行完,提示错误

msgbox("高度:" & img.height & "宽度:" & img.width) '此行没有执行

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

msgbox(5)

bmp.save("e:\web\zsz\x\" & dr("展示照"))

bmp.Dispose

dr("展示照缩略图") = dr("展示照")

dr.save

End If

无语，叫你去掉 UrlEncode 啊

Dim file = "e:\web\zsz\d\" & dr("展示照")

分享计划任务处理图片缩小：将该有的文件夹添加到相应的文件夹内后，都正常了，不需要UrlEncode

'----处理展示照（单元格内1行）----------------------------------------------------------------------------

Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")

msgbox("数量1:" & drs.count)

For Each dr As DataRow In drs

Dim file = "e:\web\zsz\d\" & dr("展示照")

Dim img As image = getImage(file) '取大图,用于后续处理

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

bmp.save("e:\web\zsz\x\" & dr("展示照"))

bmp.Dispose

dr("展示照缩略图") = dr("展示照")

dr.save

'----处理生活照（单元格内多行）---------------------------------------------------------------------------------------

drs = DataTables("会员资料").SQLSelect("[生活照缩略图] is null And [生活照] is not null","","[会员编号] DESC")

msgbox("数量2:" & drs.count)

For Each dr As DataRow In drs

For Each shz As String In dr.Lines("生活照")

Dim file = "e:\web\shz\d\" & shz

Dim img As image = getImage(file) '取大图,用于后续处理

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

bmp.save("e:\web\shz\x\" & shz)

bmp.Dispose

dr("生活照缩略图") &= iif(dr.IsNull("生活照缩略图"), "", vbcrlf) & shz

dr.save

[此贴子已经被作者于2017/6/1 11:04:52编辑过]

主题：uploader上传图片后，如何验证图片数量