Dim dn,dx As string '你的日期列好像是字符型::::::::::::::dn = Tables("文件库").Compute("min(成交日期)", "案卷级档号 = '" & tables("案卷库").current("档号") & "'")dx = Tables("文件库").Compute("max(成交日期)", "案卷级档号 = '" & tables("案卷库").current("档号") & "'")tables("案卷库").current("编制日期") = dn & "-" & dx
加好友 
发短信
Post By：2012/7/8 16:33:00 [显示全部帖子]
