Dim cmd As New SQ LCommand
Dim ds As DataTable
cmd.C
cmd.CommandText = "SE LECT 款图 Fr om {订单主表} where [_Identify] = " & r("_Identify")
ds = cmd.ExecuteReader()
If ds.datarows.count > 0 Then
If ds.DataRows(0)("款图") IsNot "NULL" Then
Dim imageByte() As Byte = ds.DataRows(0)("款图")
Dim ms As New system.IO.MemoryStream(imageByte) '将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms)
pbxz.Image = image
Else
pbxz.ImageFile = nim
End If
Dim rfz As String = r("合同数量")
lb1.text = "款号: " + r("款号") + " 订单数量: " + rfz + r("单位") + vbcrlf + vbcrlf + "合同交期: " + r("合同交期") + " 担当姓名: " + r("业务担当")
Else
pbxz.ImageFile = nim
lb1.text = ""
End If
此主题相关图片如下:提问图片2.jpg

这个代码怎么写,不然老是出错