主题：[求助]求解代码如下

问题一:A B 应该是关联的吧?关联字段是?
问题二:太难了吧,每年放假都是公布后才知道从几号放到几号.

不关联，也应该有一个同名字段吧？
否则，两个表中的记录怎么对应？

比如，C列数字有大于0的，有小于0的，到底是以哪个数字为准？

这个是代码,不知道意思对不.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

其实两表关联的话，不需要代码也能解决问题.

这个修改表A后,表B也能自动更新.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table

表B 的D列是一个表达式列

Dim StartTime As Date = #1/1/2009#
Dim EndTime As Date =#1/5/2009#
Dim n As Integer = (EndTime - StartTime).days + 1     '这里两个Date相减,得到的是TimeSpan类型.
Dim weeks As Integer = n\7                                       '包含多少个整周
For i As Integer = 0 To (n Mod 7)                                '判断,去掉整周后,剩余几天是星期几
    Dim d As Date = EndTime.AddDays(-1*i)
    If d.DayOfweek = DayOfWeek.Sunday OrElse _
       d.DayOfweek = DayOfWeek.Saturday Then   '如果是周末
        n = n - 1   
    End If    
Next
n = n - weeks * 2
Return n