主题：关联表的问题

还有个问题,怎么有时候能计算,有时候又不能计算.而且每次关了再进去以前的数据没有了..

你的代码放在哪?   还有你那个标题是什么个定性?  两个表的标题内容也不一致???

我用的按钮，然后写的它的单击事件...标题是用的表达式列

两个表的标题列都不是表达式列啊~   还有两个表相同的报告人怎么都会是多行都有呢?  到底是按报告人统计还是有什么其他条件?

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

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

我这里是按报告人统计的。。
主要是用来统计报告人工作进度,每天写他的工作进度，就有相同的报告人多行的情况了啊...有什么好的意见吗

现在你只要在totaltable表输入报告人名称，25楼文件就已经能自动计算了呀。
如果要以每天统计，你可以在totaltable表增加日期列，然后在原代码中增加一个条件就可以了。

你代码是写哪的啊，我没找到。。。

totaltable表DataColChanged事件。

你应该以工作编号标题表为主表,这样主表上的报告人就只占一行就可以了,然后在datacolchanged事件中设置代码,当输入 计划总用工时 后,就会自动计算了. 代码如下:   下面三列也要改为数字列(不要表达式列,因为不会保存的)

If e.DataCol.Name = "计划总用工时" Then
    If e.datarow.IsNull("计划总用工时") Then
        e.datarow("正班累计用时") = Nothing
        e.datarow("加班累计用时") = Nothing
        e.datarow("已累计用时") = Nothing
    Else
       
        Dim Sm As single
        Sm = Tables("retable").Compute("Sum(工作用时)", "报告人 = '" & e.datarow("报告人") & "' and 加班 = false")
        e.datarow("正班累计用时") = sm
        Sm = Tables("retable").Compute("Sum(工作用时)", "报告人 = '" & e.datarow("报告人") & "' and 加班 = true")
        e.datarow("加班累计用时") = sm
        e.datarow("已累计用时") = e.datarow("正班累计用时")+e.datarow("加班累计用时")
    end if
end if