- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]跨表格记录条目的同步更新 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93452)
-- 发布时间：2016/11/29 12:53:00
-- [求助]跨表格记录条目的同步更新
已设置有父表：综合分布表
此主题相关图片如下：已知表.png
另外有自表：监督检查表
此主题相关图片如下：添置表.png
背景信息如下：每次外出检查会录入检查的信息，例如根据检查情况会输入检查日期、检查人员等
已设置的代码如下：
Select Case e.DataCol.name
Case "检查日期1"
Dim dr As DataRow
If e.OldValue <> Nothing Then
dr = DataTables("监督检查表").Find("检查日期 = \'" & e.OldValue & "\' and 单位名称=\'" & e.DataRow("单位名称") & "\'")
Else
dr = DataTables("监督检查表").Find("单位名称=\'" & e.DataRow("单位名称") & "\' and 检查日期 is null")
End If
If dr Is Nothing Then
dr = DataTables("监督检查表").AddNew()
dr("单位名称") = e.DataRow("单位名称")
dr("县") = e.DataRow("县")
dr("乡镇") = e.DataRow("乡镇")
dr("街道村") = e.DataRow("街道村")
dr("门牌号") = e.DataRow("门牌号")
dr("计划名称") = e.DataRow("计划名称1")
dr("检查日期") = e.DataRow("检查日期1")
dr("检查人员") = e.DataRow("检查人员1")
dr("检查结果") = e.DataRow("检查结果1")
dr("检查记录") = e.DataRow("检查记录1")
dr("整改期限") = e.DataRow("整改期限1")
dr("复查日期") = e.DataRow("复查日期1")
dr("复查结果") = e.DataRow("复查结果1")
Else
dr("检查日期") = e.DataRow("检查日期1")
End If
Case "检查结果"
If e.DataRow.Isnull("检查日期1") = False Then
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = \'" & e.DataRow("检查日期1") & "\' and 单位名称=\'" & e.DataRow("单位名称") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
Else
msgbox("请先输入检查日期1")
End If
End Select
这个代码能使在综合分布表中所录的内容同步更新到监督检查表中。
目前的疑难如下：
根据本次检查情况，有部分需要开展复查。相应的复查信息也录入复查日期和复查结果中。
如何使在综合分布表中更新的复查信息（对应列分别为：复查日期1、复查结果1）更新到监督检查表的对应条目中（因为根据上述代码，已有信息添加至监督检查表中）
-- 发布时间：2016/11/29 13:53:00
--
Case "检查结果", "复查日期1", "复查结果1"
If e.DataRow.Isnull("检查日期1") = False Then
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = \'" & e.DataRow("检查日期1") & "\' and 单位名称=\'" & e.DataRow("单位名称") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
Else
msgbox("请先输入检查日期1")
End If
End Select