[求助] 错误码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，以下黄色标注的请帮忙更正一下，另外整个代码可以优化吗？感谢。

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

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 order by resend,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

End If

老师，

order by resend 加这个有点不对，我只有有钩的，resend = 1，然后再将Date2 降序操作

这个是结合了1楼2条sql的结果，自己细品一下。测试有什么问题？

老师，是有点不对，

条件一：取 resend = 1 并且 Date2 的最晚的一条记录

条件二：如果没有 resend = 1 的记录，就取Date2 最早的一条记录。

那还是分2次把，1楼代码不变

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"

改为

cmd.CommandText = "Se lect top 1 ImageBinary From {SDBC_Sa} Where BarcodeData ='" & e.Form.Controls("TextBox1").Text & "'and DATALENGTH(ImageBinary) > 0 and resend = 1 order by Date2 desc"

谢谢老师

以下这个黄色不对，可以也帮忙修改一下，谢谢。

Dim fdr As DataRow = dt.Find("BarcodeData='" & rr("生产任务单号") & "' and Resend = 1,Date desc")

主题：[求助] 错误码