1、
使用sql更新
update 表A set 查找反馈='有' from 表A where exist (select 第一列 from 表B where 表A.第一列 = 表B.第一列 and 表A.第二列 = 表B.第二列 and 表A.第三列 = 表B.第三列 and 表A.日期 > 表B.日期)
2、使用SQLCommand获取表A后台数据再遍历
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * From {表A}"
dt = cmd.ExecuteReader(true)
For Each r As dataRow In dt.datarows
If DataTables("表B").SQLFind("第一列 = '" & r("A") & "' And 第二列 = '" & r("B") & "' And 第三列 = '" & r("C") & "' And 日期 < '" & r("时间") & "'") Is Nothing Then
r("查找结果") = "没有"
Else
r("查找结果") = "有"
End If
Next
dt.save
加好友 
发短信
Post By：2019/9/27 10:04:00 [显示全部帖子]
