以文本方式查看主题

-  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=100590)
--  作者：HZFJF
--  发布时间：2017/5/14 17:40:00
--  [求助]
我是新手，现有 "查询.销售总表 " 关联表，我想在 "查询" 表中引用 "销售总表" 日期列的最后一次供货的日期，表达式该怎么写？
--  作者：有点色
--  发布时间：2017/5/15 8:37:00
--  

 

销售总表的DataColChanged事件

 

If e.DataCol.Name = "日期" Then
    Dim pdr As DataRow = e.DataRow.GetParentRow("查询")
    Dim fdr As DataRow = e.DataTable.Find("关联列 = \'" & e.DataRow("关联列") & "\'", "_Sortkey")
    If pdr IsNot Nothing Then
        If fdr IsNot Nothing Then
            pdr("日期") = fdr("日期")
        Else
            pdr("日期") = Nothing
        End If
    End If
End If