Foxtable(狐表)用户栏目专家坐堂 → BeforeAttachFile问题


  共有1960人关注过本帖树形打印复制链接

主题:BeforeAttachFile问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
BeforeAttachFile问题  发帖心情 Post By:2016/11/16 10:55:00 [只看该作者]

请教老师,下面代码的条件控制,因为“文件上传”列,受逻辑列的条件控制,会出现两次提醒,不能上传文件

如果只要其中一段代码没有问题,用两段代码存在问题,请老师指导下下,谢谢

 

Select Case e.DataCol.Name
       Case "文件上传" '如果在该列插入文件  
            If e.DataRow("上传类型_商务文件") = False Then  
               e.Cancel = True '取消插入
               MessageBox.Show("上传文件前,请先选择上传类型!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
           e.Subfolder = e.DataRow("专业部室") & "投标商务文件"   '将此文件存放在目录名为部门名称的子目录中.
        End If
End Select

 

Select Case e.DataCol.Name
       Case "文件上传" '如果在该列插入文件 

           If e.DataRow("上传类型_技术文件") = False Then  
              e.Cancel = True '取消插入
              MessageBox.Show("上传文件前,请先选择上传类型!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
           e.Subfolder = e.DataRow("专业部室") & "投标技术文件"   '将此文件存放在目录名为部门名称的子目录中.
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/16 11:05:00 [只看该作者]

2个都勾选的情况下应该上传那一类文件?建议把逻辑列改为下拉项目的字符列

 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/11/16 11:15:00 [只看该作者]

老师,逻辑列是排他选择的,只能勾选其中一个,根据所勾选的逻辑列,自动在服务器上建文件包

e.DataRow("专业部室") & "投标商务文件"

e.DataRow("专业部室") & "投标技术文件"

 

 

[此贴子已经被作者于2016/11/16 11:17:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/16 11:27:00 [只看该作者]

Select Case e.DataCol.Name
    Case "文件上传" '如果在该列插入文件
        If e.DataRow("上传类型_商务文件") = False AndAlso e.DataRow("上传类型_技术文件") = False Then
            e.Cancel = True '取消插入
            MessageBox.Show("上传文件前,请先选择上传类型!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            If e.DataRow("上传类型_商务文件") = True Then
                e.Subfolder = e.DataRow("专业部室") & "投标商务文件"   '将此文件存放在目录名为部门名称的子目录中.
            Else
                e.Subfolder = e.DataRow("专业部室") & "投标技术文件"
            End If
            
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/16 11:28:00 [只看该作者]

如果改为下拉项目代码就简洁的多了,还不用控制逻辑列的排他

Select Case e.DataCol.Name
    Case "文件上传" '如果在该列插入文件
        If e.DataRow.Isnull("上传类型")  Then
            e.Cancel = True '取消插入
            MessageBox.Show("上传文件前,请先选择上传类型!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            e.Subfolder = e.DataRow("专业部室") & e.DataRow("上传类型")  '将此文件存放在目录名为部门名称的子目录中.
        End If
End Select

 回到顶部