- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 通过选择不同季度，显示不同得分 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190023)
-- 发布时间：2024/1/11 15:43:00
-- 通过选择不同季度，显示不同得分
有两个表，表1：项目季度加分申请表。表2：项目人员考核表。
问：”表1项目季度加分申请表“已填写完成，在编辑”表2项目人员考核表“的时候，通过填写【季度】【年度】这两列，表2的【考核得分】就能自动获取表1相同年度、季度行里面的【最终得分】值？这代码怎么实现呢？
此主题相关图片如下：表1.jpg
此主题相关图片如下：表2.jpg
[此贴子已经被作者于2024/1/11 15:57:09编辑过]
-- 发布时间：2024/1/11 16:01:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
项目人员考核表datacolchanged事件
Select Case e.DataCol.Name
Case "年度","季度"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("考核年度") OrElse dr.IsNull("考核季度") Then
Case "年度","季度"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("考核年度") OrElse dr.IsNull("考核季度") Then
dr("考核得分") = Nothing
Else
Dim filter As String
filter = "年度 = \'" & dr("考核年度") & "\' And 季度 = \'" & dr("考核季度") & "\'"
Else
Dim filter As String
filter = "年度 = \'" & dr("考核年度") & "\' And 季度 = \'" & dr("考核季度") & "\'"
pr = DataTables("项目季度加分申请表").Find(filter)
If pr IsNot Nothing Then
dr("考核得分") = pr("最终得分")
End If
End If
End Select
If pr IsNot Nothing Then
dr("考核得分") = pr("最终得分")
End If
End If
End Select