以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据关联表自动判断输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21251)
--  作者：云淡风轻
--  发布时间：2012/7/6 15:51:00
--  [求助]根据关联表自动判断输入

基本情况：案卷库和文件库所有字段均为文本型，案卷库的档号和文件库的案卷级档号关联。

问题：案卷库的“编制日期”如何根据文件库中的“成文日期”自动填充，代码怎么写？

举例：如图所示,文件库的成文日期分别是20120704,20120701,20120704,20120605，那么案卷库的编制日期自动填入20120605-20120704

 


图片点击可在新窗口打开查看此主题相关图片如下：qqqqqqqqqqqqqqqqqqqqqqqqq.jpg
图片点击可在新窗口打开查看
求参考代码
--  作者：狐狸爸爸
--  发布时间：2012/7/6 16:02:00
--  
这个比较复杂的哦，你既然这两个表都设计好了，就传上来吧。
--  作者：云淡风轻
--  发布时间：2012/7/8 15:14:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.foxdb

麻烦狐爸~

[此贴子已经被作者于2012-7-8 15:14:41编辑过]
--  作者：mr725
--  发布时间：2012/7/8 16:33:00
--  

Dim dn,dx As string    \'你的日期列好像是字符型::::::::::::::
dn = Tables("文件库").Compute("min(成交日期)", "案卷级档号 = \'" & tables("案卷库").current("档号") & "\'")
dx = Tables("文件库").Compute("max(成交日期)", "案卷级档号 = \'" & tables("案卷库").current("档号") & "\'")
tables("案卷库").current("编制日期") = dn & "-" & dx
--  作者：云淡风轻
--  发布时间：2012/7/9 12:01:00
--  

谢谢！