分10条sql，执行10次获取数据
cmd.CommandText = "Sel ect top 1 ImageBinary From {SDBC_Sa} Where BarcodeData ='" & e.Form.Controls("TextBox1").Text & "'and DATALENGTH(ImageBinary) > 0 and resend = 1 order by Date desc"
Dim dt As DataTable = cmd.ExecuteReader
If dt.datarows.count > 0 Then
处理第一个图片
endif
cmd.CommandText = "Sel ect top 1 ImageBinary2 From {SDBC_Sa} Where BarcodeData ='" & e.Form.Controls("TextBox1").Text & "'and DATALENGTH(ImageBinary2) > 0 and resend = 1 order by Date desc"
Dim dt As DataTable = cmd.ExecuteReader
If dt.datarows.count > 0 Then
处理第二个图片
endif
……
加好友 
发短信
Post By：2021/5/16 21:20:00 [显示全部帖子]
