Foxtable(狐表)用户栏目专家坐堂 → [求助]带条件跨表引用某列数据参与本表计算,老师赐教!


  共有10513人关注过本帖平板打印复制链接

主题:[求助]带条件跨表引用某列数据参与本表计算,老师赐教!

帅哥哟,离线,有人找我吗?
yanzhen2010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:212 积分:1564 威望:0 精华:0 注册:2011/7/20 21:00:00
[求助]带条件跨表引用某列数据参与本表计算,老师赐教!  发帖心情 Post By:2011/8/10 9:04:00 [只看该作者]

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

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:住院收费.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("拼音码") & "'")只能判断有没有对应项目存在,但不能获取对应项目的“天数加减”列的值,也不能附带条件。

 

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

 如果存在对应项目,

e.DataRow("合计") = (((e.DataRow("停嘱日期") - e.DataRow("开嘱日期")).TotalDays+1+DataTables("结算项目").DataCols("天数加减"))*e.DataRow("小计")

<!--EndFragment-->

[此贴子已经被作者于2011-8-10 9:46:25编辑过]

 回到顶部