| 以文本方式查看主题 - 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=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
|