主题：[求助]图片管理

Select Case e.DataCol.Name

    Case  “名称一”,“名称二”，“名称3”

        if e.NewValue Is nothing Then

             e.DataRow(e.Datacol.Name &"图片") = nothing

        else

           e.DataRow(e.Datacol.Name &"图片") = e.NewValue & ".jpg"

        end if

end select

BeforeAttachFile 事件代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "图片1"
        If dr.IsNull("图片1名称")  Then
            MessageBox.Show("请先图片1!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            e.FileName = dr("图片1名称") & ".jpg"
        End If
    Case "图片2"
        If dr.IsNull("图片2名称")  Then
            MessageBox.Show("请先图片2!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            e.FileName = dr("图片2名称") & ".jpg"
        End If
    Case "图片3"
        If dr.IsNull("图片3名称")  Then
            MessageBox.Show("请先图片3!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            e.FileName = dr("图片3名称") & ".jpg"
        End If
End Select