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

1楼

xiaofei_00 发表于：2024/9/26 11:30:00

在foxtable平台下我有两个表，ACChtdj和ACCxmdjb，两个表有一个相关联的字段htbh，我现在想在ACChtdj表中列“已用工时”自动显示ACCxmdjb中所有相同的htbh的行的求和结果，帮我分析一下怎么做，写出代码

2楼

有点蓝 发表于：2024/9/26 11:40:00

参考：http://www.foxtable.com/webhelp/topics/1472.htm

首先将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

3楼

xiaofei_00 发表于：2024/9/26 13:16:00

我想让两行数据进行比较，当条件符合单元格背景变为红色，最好是每次登录自动更新一遍，老师看看我的代码问题在哪里，为啥实现不了呢

4楼

xiaofei_00 发表于：2024/9/26 13:17:00

此主题相关图片如下：微信图片_20240926131325.png

5楼

有点蓝 发表于：2024/9/26 13:29:00

没看出什么问题。请上传实例说明

6楼

xiaofei_00 发表于：2024/9/26 14:09:00

实现了，我忘了设置颜色样式了悲催感谢老师

共6 条记录, 每页显示 10 条, 页签: [1]