以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [讨论] 多条件比对填充公式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48744)
--  作者：wumingrong1
--  发布时间：2014/4/4 10:14:00
--  [讨论] 多条件比对填充公式
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).table
--  作者：wumingrong1
--  发布时间：2014/4/4 10:19:00
--  
好像用这个公式可以实现耶：

For Each dr As DataRow In DataTables("表A").DataRows
    Dim drr As DataRow = DataTables("表B").Find("第二列=\'" & dr("第二列") & "\' and 第三列=\'" & dr("第三列") & "\'")
    If drr IsNot Nothing Then
         dr("第一列")="OK"
    End If
Next
--  作者：lsy
--  发布时间：2014/4/4 10:25:00
--  
For Each r As Row In Tables("表B").Rows
    If r.IsNull("第一列") = False AndAlso r.IsNull("第二列") = False AndAlso r("第一列") = Tables("表A").Rows(r.Index)("第一列") AndAlso r("第二列") = Tables("表A").Rows(r.Index)("第二列") Then
        r("第三列") = "OK"
    Else
        r("第三列") = Nothing
    End If
Next