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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 非常规跨表引用，如何写代码？

共有11721人关注过本帖树形打印复制链接主题：非常规跨表引用，如何写代码？

yanzhen2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

非常规跨表引用，如何写代码？ 发帖心情

Post By：2011/8/23 21:16:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:住院收费.rar

项目中“住院信息”表“本月伙食费”列需要引用“收费项目”表“餐费标准”行的单价进行计算，

请教如何引用？最好是全局代码。

“本月伙食费”列的天数代码已经写好，就等引用单价，“本月伙食费”=天数*餐费标准单价。

我在代码窗口写了如下代码，执行后错误。请教老师如何编写？

Dim cf As String = DataTables("收费项目").Find("[拼音码] = "jcbz"")

Output.Show(cf)

“住院信息”表“本月伙食费”列要引用“收费项目”表“餐费标准”行的单价，但是“住院信息”表不存在相应的“拼音码”列。

[此贴子已经被作者于2011-8-23 21:40:55编辑过]

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/8/23 21:55:00 [只看该作者]

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

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/23 21:57:00 [只看该作者]

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编辑过]