通过选择不同季度，显示不同得分 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：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

            dr("考核得分") = Nothing
        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

主题：通过选择不同季度，显示不同得分