[求助]多列判断取值的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多列判断取值的代码

共有1923人关注过本帖树形打印复制链接主题：[求助]多列判断取值的代码

倪远歌1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：51 积分：577 威望：0 精华：0 注册：2018/4/4 8:37:00

[求助]多列判断取值的代码 发帖心情

Post By：2018/4/4 10:05:00 [只看该作者]

因为表达式列无法触发datacolchanged事件，

所以想把表达式转化为代码，以便后续列可以运行

问题如下：

abcdefj共7列

其中

A，C,E为判断列

B,D,F为取值列

J为结果列

如果 E 列包含某个字

则 J列=F列对应位置（同一行，下同）的值

否则则返回到 C列判断是否为空，

不为空则 J列=D列对应位置的值

否则则返回到 A列，判断对应位置是否为空

不为空则J列=B列

求大神帮助

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/4 10:40:00 [只看该作者]

DataColChanged事件

Select Case e.DataCol.name
    Case "e", "f", "d", "a", "b"
        Dim dr = e.DataRow
        If dr("e").contains("abc") Then
            dr("j") = dr("f")
        ElseIf dr("c") <> Nothing Then
            dr("j") = dr("d")
        ElseIf dr("a") <> Nothing Then
            dr("j") = dr("b")
        Else
            dr("j") = Nothing
        End If
End select

[此贴子已经被作者于2018/4/4 10:40:38编辑过]