老师，以下黄色标注的请帮忙更正一下，另外整个代码可以优化吗 ？ 感谢。
Dim txt As String = e.Form.Controls("TextBox1").Text
txt = Tables("生产任务单").Current("生产任务单号")
e.Form.Controls("TextBox1").Text = txt
Dim val As Integer
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Se lect top 1 ImageBinary From {SDBC_Sa} Where BarcodeData ='" & e.Form.Controls("TextBox1").Text & "'and DATALENGTH(ImageBinary) > 0 and resend = 1,Date2 desc"
Dim dt As DataTable = cmd.ExecuteReader
If dt.datarows.count > 0 Then
Dim imagebytes As Byte() = dt.DataRows(0)("ImageBinary")
Dim stream As System.IO.Stream = New System.IO.MemoryStream(imagebytes)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
Dim pbx As WinForm.PictureBox = Forms("pic").Controls("PictureBox1")
pbx.Image = bmp
Else
cmd.CommandText = "Sel ect top 1 ImageBinary From {SDBC_Sa} Where BarcodeData ='" & e.Form.Controls("TextBox1").Text & "'and DATALENGTH(ImageBinary) > 0"
'Dim dt As DataTable = cmd.ExecuteReader
If dt.datarows.count > 0 Then
Dim imagebytes As Byte() = dt.DataRows(0)("ImageBinary")
Dim stream As System.IO.Stream = New System.IO.MemoryStream(imagebytes)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
Dim pbx As WinForm.PictureBox = Forms("pic").Controls("PictureBox1")
pbx.Image = bmp
End If
End If
加好友 
发短信
Post By：2021/3/12 21:32:00 [只看该作者]
