标题：[求助]完善ＢeforeAttachFile代码

1楼

老鼠发表于：2023/10/29 16:52:00

以下是现有代码，如何完善才能使其在同一行录入多张图片时，名称不会重复。

Dim dr As DataRow = e.DataRow

If dr.IsNull("姓名") Or Dr.IsNull("身份证号码") Or Dr.IsNull("证照资料取得日期") Then

MessageBox.Show("请先输入姓名与身份证号码还有证照资料取得日期!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

e.Cancel = True

Else

e.SubFolder = e.DataRow("证照资料名称")

e.FileName = dr("姓名") & "(" & dr("身份证号码") & ")_" & dr("证照资料取得日期") & ".jpg"

End If

2楼

有点蓝 发表于：2023/10/29 20:08:00

Dim dr As DataRow = e.DataRow

dim file as string = dr("姓名") & "(" & dr("身份证号码") & ")_" & dr("证照资料取得日期") & ".jpg"

if dr.lines("某附件列").contains(file) then

e.Cancel = True

msgbox("重复了")

return

end if

If dr.IsNull("姓名") Or Dr.IsNull("身份证号码") Or Dr.IsNull("证照资料取得日期") Then

……

共2 条记录, 每页显示 10 条, 页签: [1]