非常规跨表引用，如何写代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、代码为什么要那么长，分成几个短句，看起来没那么累的。

2、我没有觉得有什么非常规啊，不就是从收费标准项目中找出餐费标准来计算吗：

Dim cr As DataRow = DataTables("收费项目").find("项目名称 = '餐费标准'")
Dim dt1 As Date = DataTables("长期医嘱").Compute("max(停嘱日期)","[住院号] = '" & e.DataRow("住院号") & "'")
Dim dt2 As Date = DataTables("长期医嘱").Compute("min(开嘱日期)","[住院号] = '" & e.DataRow("住院号") & "'")
e.DataRow("本月伙食费") =(dt1-dt2).TotalDays * cr("单价")

[此贴子已经被作者于2011-8-23 22:02:13编辑过]

主题：非常规跨表引用，如何写代码？