主题：参照论坛里的二进制多附件制作，出现错误 求解！

继续求解！

'Dim s As String = e.Sender.Items

'MessageBox.Show(e.Sender.SelectedItem)

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("资源附件").Find("附件名称='" & 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