以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表取值的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160292)

--  作者:狐狐妞
--  发布时间:2021/1/27 20:12:00
--  跨表取值的问题
表A是回访总表, 表B回访记录明细表, 表A中有一列“最后回访时间”要得到表B明细表中最近的回访日期。 我的代码报错:

Dim drs As List(of DataRow)
For Each rr As DataRow In DataTables("总表").DataRows
    drs = DataTables("回访记录").Select("[姓名] =  \'" & rr("姓名") & "\'")
    If drs IsNot Nothing Then 
             Dim hh As DataRow = drs(drs.Count-1)
            rr("最后一次访问时间") = hh("回访日期")
        
    End If
Next
‘----------------------------------------
小白,还请纠正谢谢!!!’

--  作者:有点蓝
--  发布时间:2021/1/28 8:52:00
--  

Dim drs As  DataRow
For Each rr As DataRow In DataTables("总表").DataRows
    drs = DataTables("回访记录").find("[姓名] =  \'" & rr("姓名") & "\'","回访日期 desc")
    If drs IsNot Nothing Then 
            rr("最后一次访问时间") = drs ("回访日期")
        
    End If
Next