'----处理展示照(单元格内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
Next
'----处理生活照(单元格内多行)---------------------------------------------------------------------------------------
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
Next
Next