主题：请老师指点，我该怎么实现这个功能，谢谢

首先将ACChtdj表的DataColChanged事件代码设置为：

If e.DataCol.Name = "htbh" Then
    Dim Filter As String = "[htbh] = '" & e.NewValue & "'"
    e.DataRow("已用工时") = DataTables("ACCxmdjb").Compute("Sum(工时列)", Filter)
End If

将ACCxmdjb表的DataColChanged事件代码设置为：

Select Case e.DataCol.Name
    Case "工时列"
        Dim pr As DataRow
        pr = DataTables("ACChtdj").Find("htbh = '" & e.DataRow("htbh") & "'")
        If pr IsNot Nothing Then
            DataTables("ACChtdj").DataCols("htbh").RaiseDataColChanged(pr)
        End If
End Select