Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多条件判断


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

主题：[求助]多条件判断
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 16:11:00 [显示全部帖子]

1、发货状态=发货完成：收款状态的值=未收
2、收款标识<>空：收款状态的值=对账中
3、fa piao号码<>空：收款状态的值=收款中
4、收款日期<>空：收款状态的值=已完成
5、“已完成”该行锁定，不可修改

哪个优先级高？同时符合1~4的条件，填哪个？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 20:21:00 [显示全部帖子]

假设

1、单元格不是“发货完成“
2、收款标识也没有填写
3、但是fa piao号码填写

此时收款状态为“收款中”？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 22:54:00 [显示全部帖子]

datacolchanged事件

Select Case e.DataCol.Name
    Case "发货状态","fa piao号码","收款标识","收款日期"
        If e.DataRow.IsNull("收款日期") = False Then
            e.DataRow("收款状态") = "已完成"
        ElseIf e.DataRow.IsNull("fa piao号码") = False Then
            e.DataRow("收款状态") = "收款中"
        ElseIf e.DataRow.IsNull("收款标识") = False Then
            e.DataRow("收款状态") = "对账中"
        ElseIf e.DataRow("发货状态") = "发货完成" Then
            e.DataRow("收款状态") = "未收"
        Else
            e.DataRow("收款状态") = Nothing
        End If
    Case "收款状态"
        e.DataRow.Locked = e.DataRow("收款状态") = "已完成"
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/13 22:59:00 [显示全部帖子]

以下是引用ntqhj在2020/1/13 22:56:00的发言：
刚刚想到，希望实现：不可以越级填写。首先填写单元格的内容不填写，其它单元格不可填写

这个导datacolchanging事件处理即可：http://www.foxtable.com/webhelp/topics/0624.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/18 10:03:00 [显示全部帖子]


datacolchanging事件

Select Case e.DataCol.Name
    Case "收款标识"
        If e.DataRow("发货状态") <> "发货完成" Then
            msgbox("发货未完成")
            e.cancel = True
        End If
    Case "收款日期"
        If e.DataRow.isnull("fa piao号码") Then
            msgbox("fa piao号码")
            e.cancel = True
        End If
    Case "fa piao号码"
        If e.DataRow.isnull("收款标识") Then
            msgbox("收款标识")
            e.cancel = True
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 5 次数据查询