以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  if问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114172)

--  作者:jick0526
--  发布时间:2018/1/30 21:35:00
--  if问题
老师,请问下,如果表A和表B的A列一样,且表B的B列的任意一行只要有“出售”,那么表A的B列则显示成功,否则为空,代码要怎么写,谢谢!
--  作者:有点蓝
--  发布时间:2018/1/30 21:49:00
--  
参考:http://www.foxtable.com/webhelp/scr/1451.htm

If e.DataCol.Name = "B列" Then
    Dim dr As DataRow
    dr = DataTables("表A").Find("[A列] = \'" & e.DataRow("A列") & "\'")
    If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
        dr ("B列") = IIF(e.NewValue = "出售","成功","")
    End If
End If