标题：上传图片后，图片自动命名问题

1.需求是：各项目上传照片后，该照片会自动重命名为：项目名称+时间戳

2.在该表的表事件BeforeAttachFile里面写了代码，但是上传图片后没有重命名，图片还是原名称

代码如下：

Dim now As String = Format(Date.now, "yyyyMMddHHmmss")
Dim dr As DataRow = e.DataRow
 If dr.IsNull("项目名称") Then
    MessageBox.Show("请先输入项目名称!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
     e.Cancel = True
 Else
     e.FileName = dr("项目名称") & now & ".jpg"
 End If

使用的ftp？

是的，ftp

这个表事件的功能不支持ftp的。只能另外设计窗口，手工使用ftpclient上传文件：http://www.foxtable.com/webhelp/topics/1410.htm

在beforeupload事件里面写代码？有参考代码不？

设计窗口，按钮，比如添加一个上传按钮，代码比如

图片怎么在图片框显示呢？上传之后，虽然服务器上已存在，但在客户端上看不到啊，无法下载

此主题相关图片如下：qq截图20250517104448.jpg

使用PictureViewer1控件 都正常

Dim r As Row = Tables("预案与演练").current
If r Is Nothing Then Return

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "图片文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim now As String = Format(Date.now, "yyyyMMddHHmmss")
Dim name As String = r("项目名称") & now & ".jpg"
Dim ftp1 As New FtpClient
ftp1.Host = "47.XXXX"
ftp1.Account = "ftpuser"
ftp1.Password = "XXXX"
ftp1.RootDir = "/应急预案照片"
If ftp1.Upload(dlg.FileName, name) = True Then
    Messagebox.show("上传完成!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If