- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]BeforeAttachFile事件无法触发 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170697)
-- 发布时间：2021/8/4 10:21:00
-- [求助]BeforeAttachFile事件无法触发
BeforeAttachFile事件无法触发，不知道自己哪里错了，求帮助
此主题相关图片如下：捕获.png
代码如下：
Select Case e.DataCol.Name
Case "附件"
MessageBox.Show(e.DataCol.Name) ‘测试触发
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1) \'获得文件后缀名
Select Case ext
Case "pdf"
If e.DataRow.Isnull("商品简码") = False AndAlso e.DataRow.Isnull("批次") = False Then
e.FileName = "检验报告_" & e.DataRow("商品简码") & "_" & e.DataRow("批次") & ".pdf"
e.SubFolder = ext
Else
e.Cancel = True
MessageBox.Show("商品简码/批次 列不能为空!","提示")
End If
Case Else
MessageBox.Show("此列只能能插入pdf文件!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True \'取消插入
End Select
End Select
-- 发布时间：2021/8/4 10:24:00
--
如果是ftp，不能触发这个事件。其次必须在内置的文件管理器里添加文件才会触发
-- 发布时间：2021/8/4 10:55:00
--
就是FTP文件不知处；有没有其他办法完成这个功能；
-- 发布时间：2021/8/4 10:59:00
--
设计窗口，到按钮里手工处理：http://www.foxtable.com/webhelp/topics/2697.htm
-- 发布时间：2021/8/4 11:08:00
--
好的，谢谢