- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 子表关联 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74516)
-- 发布时间：2015/9/13 10:37:00
-- 子表关联
例子中“病人信息”为父表，”出院信息“和"其他”为子表，子表“出院信息“中的出院日期怎样自动显示在子表”其他“表中的”出院日期“列中，是怎么关联的？
-- 发布时间：2015/9/13 12:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子x.foxdb |
-- 发布时间：2015/9/13 14:39:00
--
如果病人信息表中没有”出院日期“列，它只能在子表”出院信息“表中存在的话，两个子表中的”出院日期“一个手动录入后另一个怎样自动显示？
-- 发布时间：2015/9/13 14:51:00
--
看2楼啊。
-- 发布时间：2015/9/13 14:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:例子x.foxdb |
-- 发布时间：2015/9/13 15:39:00
--
本表datacolchanged中原有如下代码
Select Case e.DataCol.name
Case "出生日期"
If e.DataRow.IsNull("出生日期") Then
e.DataRow("年龄") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select
再加
If e.DataCol.Name = "出院日期" OrElse e.DataCol.name = "住院号" Then
e.DataRow("出院日期") = DataTables("出院记录").Compute("max(出院日期)", "住院号 = \'" & e.DataRow("住院号") & "\'")
End If
代码的时候提示错误如下
-- 发布时间：2015/9/13 15:40:00
--
本表datacolchanged中原有如下代码
Select Case e.DataCol.name
Case "出生日期"
If e.DataRow.IsNull("出生日期") Then
e.DataRow("年龄") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select
再加
If e.DataCol.Name = "出院日期" OrElse e.DataCol.name = "住院号" Then
e.DataRow("出院日期") = DataTables("出院记录").Compute("max(出院日期)", "住院号 = \'" & e.DataRow("住院号") & "\'")
End If
代码的时候提示错误如下
此主题相关图片如下：qq图片20150913153726.png
-- 发布时间：2015/9/13 15:46:00
--
关闭所有的foxtable项目，然后重新打开输入代码。