以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表取值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100457)
--  作者：douglas738888
--  发布时间：2017/5/11 16:47:00
--  跨表取值问题

请教老师，下面代码计算的时候，想实现从另外一张表 “授权”= True 时，取 “参数”列的值参加计算  这张表的True 是唯一的

 

Dim drr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "评估_天数"
        If drr.IsNull("评估_天数")  Then
            drr("评估_天数") = Nothing
        Else
            drr("评估_计量") = drr("评估_天数") * 0.15 这个值是动态的从其他表“参数”列取值，条件是“授权=True”
        End If
End Select
--  作者：有点蓝
--  发布时间：2017/5/11 16:52:00
--  
Dim drr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "评估_天数"
        If drr.IsNull("评估_天数")  Then
            drr("评估_天数") = Nothing
        Else
            Dim dr As DataRow = DataTables("表A").Find("授权=True")
            If dr IsNot Nothing Then
                drr("评估_计量") = drr("评估_天数") * dr("参数") 
            End If
        End If
End Select