主题：类型异常

提示错误应该是你合成的条件不正确，如果是日期列，请用#，不要用单引号，如

 
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "日期 <= #" & 变量 & "#"

测试你的例子，没问题，请说明测试步骤。

工作记录总表_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

 

工作记录总表_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