主题：[求助]图片管理

Dim dr As DataRow = e.DataRow
If dr.IsNull("基本信息_身份证号码")  Then
    MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.FileName = dr("基本信息_身份证号码") & ".jpg"
End If

老师，上面代码对一个表所有图片列触发了事件，表有多列图片列每一列都有对应的名称列当名称列输入名称后图片列就自动写入名称。学习老师

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

老师，根据图片名称自动给图片自动取名。

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