主题：求助：采用二进制文件上传图片，只要是JPG就报错

求助：采用二进制文件上传图片，只要是JPG就报错

 
此主题相关图片如下：33333.jpg

Dim pbx As WinForm.PictureBox = Forms("物料信息").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("物料信息").Current Is Nothing Then
    pbx.Image = Nothing
Else
    '  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("物料附件").SQLFind("附件内容='" & e.Sender.SelectedItem & "' and 物料编码='" & Tables("物料信息").Current("物料编码") & "'")   
    If dt IsNot Nothing '必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then '如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容") '从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If

Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("物料附件").Find("附件内容='" & lbx.SelectedItem & "' and 物料编码='" & Tables("物料信息").Current("物料编码") & "'")
Dim fl As String =  ProjectPath & "附件\" & lbx.SelectedItem

此主题相关图片如下：111111111.jpg


此主题相关图片如下：1111222.jpg