3、自己写的代码和图片浏览器自带的功能有点不一样？比如，自带的功能，如果新增的时候文件名重复，会跳出对话框“覆盖原文件”和“改名”两个选项，但是自己写的就只跳出“文件名已存在”的出错信息，然后就不允许保存了。
我的“增加”按钮代码：
Dim dr As Row = Tables("订单").Current
dr.Locked = False
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.psd"
If dlg.ShowDialog = DialogResult.OK Then
Dim pth As String = "\\ZW\图片文件\"
If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
piv.AddFile(dlg.FileName.SubString(pth.Length))
Else '如果不是
FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
piv.AddFile(FileSys.GetName(dlg.FileName))
End If
End If
加好友 
发短信
Post By：2024/10/30 20:49:00 [只看该作者]
