类型异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

工作记录总表_DataColChanged

If e.DataCol.Name = "项目代号" OrElse e.DataCol.Name = "填写人" OrElse e.DataCol.Name = "计划日期" Then '发生变化的是产品列.
    e.DataRow("能力点") = DataTables("记录能力点汇总").SQLGetComboListString("能力点", "填写人 = '" & e.DataRow("填写人") & "' And 计划日期 = #" & e.DataRow("计划日期") & "# And 项目代号 = '" & e.DataRow("项目代号") & "'").replace("|", ",")
End If
If e.DataCol.Name = "填写人" OrElse e.DataCol.Name = "计划日期" OrElse e.DataCol.Name = "项目代号" Then
    Dim Filter As String = "[填写人] = '" & e.DataRow("填写人") & "' and [计划日期] = #" & e.DataRow("计划日期") & "# and [项目代号] = '" & e.DataRow("项目代号") & "'"
    e.DataRow("事件总评分") = DataTables("记录能力点汇总").SQLCompute("Sum(评价分值)", Filter)
End If

工作记录总表_CurrentChanged

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "填写人 = '" & e.Table.Current("填写人") & "'"
    If DataTables("工作记录评价表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("工作记录评价表").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If

[此贴子已经被作者于2018/4/15 22:18:15编辑过]

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	类型异常 Post By：2018/4/15 17:39:00 [只看该作者] 用户已被锁定

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/15 18:00:00 [只看该作者] 用户已被锁定

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/15 18:17:00 [只看该作者] 用户已被锁定

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/15 22:07:00 [只看该作者] 用户已被锁定

主题：类型异常