- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表日期判断 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164252)
-- 发布时间：2021/5/1 14:32:00
-- 跨表日期判断
请教：一个对象，如果表B填报的日期，比表A对应的日期晚，则不引用表A的相应对象，如何写筛选代码？
-- 发布时间：2021/5/1 14:42:00
--
此主题相关图片如下：图1.png
-- 发布时间：2021/5/1 14:42:00
--
此主题相关图片如下：图2.png
-- 发布时间：2021/5/5 9:33:00
--
表A，datacolchanged
Select Case e.DataCol.Name
Case "日期","编号"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("日期") OrElse dr.IsNull("编号") Then
dr("姓名") = Nothing
Else
Dim filter As String
filter = "编号 = \'" & dr("编号") & "\' And 日期 >= #" & dr("日期") & "#"
pr = DataTables("表A").Find(filter)
If pr IsNot Nothing Then
dr("姓名") = pr("姓名")
End If
End If
End Select
Case "日期","编号"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("日期") OrElse dr.IsNull("编号") Then
dr("姓名") = Nothing
Else
Dim filter As String
filter = "编号 = \'" & dr("编号") & "\' And 日期 >= #" & dr("日期") & "#"
pr = DataTables("表A").Find(filter)
If pr IsNot Nothing Then
dr("姓名") = pr("姓名")
End If
End If
End Select