以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表数据汇总更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68617)

--  作者:yifan3429
--  发布时间:2015/5/21 12:53:00
--  关联表数据汇总更新
父表   和 子表    关联  编号   父表 有  开始时间  和     结束时间      子表 有  开始时间  和     结束时间    

现在父编号1  在子表有关联若干行   我想实现如果有关联的全部填入填入数据后     现在父编号1 的开始完成时间填入 今天 日期   如果子表结束时间 有一行没有填写  父表不显示任何数据

求助代码方案

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150521125304.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/5/21 12:54:22编辑过]

--  作者:Bin
--  发布时间:2015/5/21 13:41:00
--  
子表DataColChanged事件

select case e.datacol.name
         case "第一列","第二列"
          dim pr as datarow = e.datarow.GetParentRow("父表")
          if pr isnot nothing then
              if pr.GetChildRows("子表").count=e.datatable.Compute("count(*)","第一列 is not null and 第二列 is not null") then
                  pr("开始完成时间")=date.today
              end if
          end if
end select

--  作者:yifan3429
--  发布时间:2015/5/21 16:35:00
--  
上实例  求解
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150521163330.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进度汇总测试.foxdb



--  作者:Bin
--  发布时间:2015/5/21 16:41:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进度汇总测试.foxdb


--  作者:大红袍
--  发布时间:2015/5/21 16:48:00
--  
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进度汇总测试.foxdb