以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103865)
--  作者：jick0526
--  发布时间：2017/7/18 21:33:00
--  修改代码
老师，请问下，下面的代码我想加个前提，如果表A的C列等于“出售”则执行下面代码，该怎么加？谢谢！
If e.DataCol.Name = "A列" Then
    If e.NewValue Is Nothing Then
        e.DataRow("B") = Nothing
        
    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("[A] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing 
            e.DataRow("B") = dr("C")
           
        End If
    End If
End If
--  作者：有点蓝
--  发布时间：2017/7/18 22:16:00
--  
f e.DataCol.Name = "A列" Then
    If e.NewValue Is Nothing Then
        e.DataRow("B") = Nothing
        
    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("[A] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing andalso dr("C") = “出售”
            e.DataRow("B") = dr("C")
           
        End If
    End If
End If