- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请老师指点，我该怎么实现这个功能，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193573)
-- 发布时间：2024/9/26 11:30:00
-- 请老师指点，我该怎么实现这个功能，谢谢
在foxtable平台下我有两个表，ACChtdj和ACCxmdjb，两个表有一个相关联的字段htbh，我现在想在ACChtdj表中列“已用工时”自动显示ACCxmdjb中所有相同的htbh的行的求和结果，帮我分析一下怎么做，写出代码
-- 发布时间：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
-- 发布时间：2024/9/26 13:16:00
--
我想让两行数据进行比较，当条件符合单元格背景变为红色，最好是每次登录自动更新一遍，老师看看我的代码问题在哪里，为啥实现不了呢
-- 发布时间：2024/9/26 13:17:00
--
此主题相关图片如下：微信图片_20240926131325.png
-- 发布时间：2024/9/26 13:29:00
--
没看出什么问题。请上传实例说明
-- 发布时间：2024/9/26 14:09:00
--
实现了，我忘了设置颜色样式了 悲催 感谢老师