- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动测试，提示错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109345)
-- 发布时间：2017/11/9 21:29:00
-- 移动测试，提示错误
Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")
msgbox("数量1:" & drs.count)
msgbox(1)
For Each dr As DataRow In drs
Dim file = "e:\\web\\zsz\\d\\" & dr("展示照")
msgbox(2)
Dim img As image = getImage(file) \'取大图,用于后续处理
msgbox(3) \'执行完3，提示下图
Dim bmp As bitmap = new bitmap(img, 100, 100 * (img.height / img.width))
msgbox(4)
bmp.save("e:\\web\\zsz\\x\\" & dr("展示照"))
bmp.Dispose
dr("展示照缩略图") = dr("展示照") \'如何将一个多行照片单元格，赋值给另一个单元格？
dr.save
Next
此主题相关图片如下：qq图片2017110921264222.png
[此贴子已经被作者于2017/11/9 21:30:34编辑过]
-- 发布时间：2017/11/9 21:49:00
--
没有这个文件 Dim file = "e:\\web\\zsz\\d\\" & dr("展示照")
那么就要判断 If img IsNot Nothing Then