- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论] 多条件比对填充公式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48744)
-- 发布时间：2014/4/4 10:14:00
-- [讨论] 多条件比对填充公式
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1 (1).table |
-- 发布时间：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
-- 发布时间：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