主题：文件命名规则

 一款产品有多张图片，请问上传的图片怎么根据产品名称命名？

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

点击浏览该文件:管理项目19.rar

.

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

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

Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称")  Then
    MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    Dim ss As String = e.filename
    Dim Index As Integer = ss.LastIndexOf(".")
    Dim hz As String = ss.SubString(Index,ss.length-Index)
    ss = dr("产品名称")
    e.filename = ss & hz
    If e.DataRow(e.DataCol.name).Contains(ss) Then
        Dim max As Integer = 0
        For Each s As String In e.DataRow.Lines(e.DataCol.name)
            If s Like "*" & ss & "*" Then
                Dim fni1 As Integer=s.LastIndexOf("-")
                If fni1 > -1 Then
                    Dim fni2 As Integer = s.LastIndexOf(".")
                    fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
                    If fni1 > max Then
                        max = fni1
                    End If
                End If
            End If
        Next
        e.filename = ss & "-" & (max+1) & hz
    End If
End If

谢谢BIN