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编辑过]
加好友 
发短信
Post By：2017/11/9 21:29:00 [只看该作者]
