Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式


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

主题：表达式
帅哥哟，离线，有人找我吗？
jick0526
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		表达式  发帖心情 Post By：2019/4/20 17:32:00 [显示全部帖子]

老师，请问下，下面这段代码如果改成表达式改怎么改

Select Case e.DataCol.name
    Case "A", "B"
        Dim drs  = e.DataTable.Select("A='" & e.DataRow("A") & "'")
        Dim iserror = False
        For i As Integer = 1 To drs.count-1
            If drs(i-1)("B") <> drs(i)("B") Then
                iserror = True
                Exit For
            End If
        Next
        If iserror Then
            For Each dr As DataRow In drs
                dr("c") = Nothing
            Next
        Else
            For Each dr As DataRow In drs
                dr("c") = "成功"
            Next
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2019/4/20 18:32:00 [显示全部帖子]

老师，不好意思，再问一下，那下面这个有没有可能，是自动输入时间的

If e.DataRow("f") = "正确"
e.DataRow("e") = Date.now
 Else
        e.DataRow("e") = Nothing
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2019/4/22 13:29:00 [显示全部帖子]

老师，是下面这段代码能不能改成表达式列
If e.DataRow("f") = "正确"
e.DataRow("e") = Date.now
 Else
        e.DataRow("e") = Nothing
    End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询