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
加好友 
发短信
Post By：2021/8/4 10:21:00 [显示全部帖子]
