标题：[求助]带条件跨表引用某列数据参与本表计算，老师赐教！

[求助]带条件跨表引用某列数据参与本表计算，老师赐教！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:住院收费.rar

“长期医嘱”表“合计”列带条件引用“结算项目”表“天数加减”列数据，引用条件“启用=true”

目前合计公式：

Select Case e.DataCol.Name
        Case "结算"
        If e.DataRow("结算") =True Then
            Dim dr As DataRow = DataTables("结算项目").Find("[拼音码] = '" & e.DataRow("拼音码") & "'")
            If dr IsNot Nothing Then
                e.DataRow("合计") = ((e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays)*e.DataRow("小计")
            End If
        Else
            e.DataRow("合计") = ((e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays+1)*e.DataRow("小计")
        End If       
End Select

代码中：Find("[拼音码] = '" & e.DataRow("拼音码") & "'")只能判断有没有对应项目存在，但不能获取对应项目的“天数加减”列的值，也不能附带条件。

我需要达到的合计列公式大致是：

我不明白你的问题，你既然得到dr，那么dr("天数加减") 不就是你要的对应项目的“天数加减”列的值吗？

还有不能附带条件是什么意思？ find可以附带任何条件的。

老总你好，帮忙看看这段代码能不能简化？

Select Case e.DataCol.Name
    Case "用法","剂量"
        If e.DataRow.IsNull("用法") OrElse e.DataRow().IsNull("剂量") Then
            e.DataRow("小计") = Nothing
        Else
            Dim Val As Double = e.DataRow("剂量")/e.DataRow("sys_规格值")
            Dim Xj As Short = Math.Ceiling(Val)
            e.DataRow("小计") =Xj*e.DataRow("用法").SubString(0,1)*e.DataRow("单价")
        End If
    Case "开嘱日期","停嘱日期"
        If e.DataRow.IsNull("开嘱日期") OrElse e.DataRow().IsNull("停嘱日期") Then
            e.DataRow("合计") = Nothing
        End If
    Case "执行","sys_结算"
        If e.DataRow("执行") =False And e.DataRow("sys_结算") =False  And (e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays>0 Then
            e.DataRow("合计") = ((e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays+1)*e.DataRow("小计")
        End If
        If e.DataRow("执行") =True And e.DataRow("sys_结算") =False  And (e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays>0 Then
            e.DataRow("合计") = (e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays*e.DataRow("小计")
        End If
        If e.DataRow("执行") =False And e.DataRow("sys_结算") =True  And (e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays>0 Then
            Dim dr As DataRow = DataTables("结算项目").Find("[拼音码] = '" & e.DataRow("拼音码") & "'And 启用 = 1")
            If dr IsNot Nothing Then
                e.DataRow("合计") = (((e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays)+1+dr("天数加减"))*e.DataRow("小计")         
            End If
        End If
End Select

上边代码在更改开嘱日期或停嘱日期后不自动计算，何哉？