[求助]完善ＢeforeAttachFile代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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