以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133798)
--  作者：jick0526
--  发布时间：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
--  作者：有点蓝
--  发布时间：2019/4/20 17:35:00
--  
改不了，表达式支持不了
--  作者：jick0526
--  发布时间：2019/4/20 18:32:00
--  
老师，不好意思，再问一下，那下面这个有没有可能，是自动输入时间的

If e.DataRow("f") = "正确"
e.DataRow("e") = Date.now
 Else
        e.DataRow("e") = Nothing
    End If
--  作者：有点色
--  发布时间：2019/4/21 20:04:00
--  

 

代码执行有什么问题？请具体说明问题。

 

 
--  作者：jick0526
--  发布时间：2019/4/22 13:29:00
--  
老师，是下面这段代码能不能改成表达式列
If e.DataRow("f") = "正确"
e.DataRow("e") = Date.now
 Else
        e.DataRow("e") = Nothing
    End If
--  作者：有点甜
--  发布时间：2019/4/22 14:51:00
--  

 

不可以，做不到。