主题：[求助]项目事件帮忙看下哪里错误

代码没问题，报什么错？

截图说明，或者上传具体实例说明。

在你datacolchanged事件，加入msgbox，能否弹出提示框？

代码肯定是没问题的，你入库列不要设置成【表达式列】

实例发上来测试一下。

Dim dr As New List(of DataRow)
 With DataTables("魔核")
    For Each nm As String In .GetValues("产品", "产品 is not null") '找出每个产品的第一行数据, 添加到集合dr中
        dr.Add(.Find("产品 = '" & nm & "'", "[_SortKey]"))
    Next
    For Each r As DataRow In dr
        .DataCols("入库").RaiseDataColChanged(r)
    Next
End With

Dim drs As New List(of DataRow)
With DataTables("柯言")
    For Each nm As String In .GetValues("产品", "产品 is not null") '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("产品 = '" & nm & "'", "[_SortKey]"))
    Next
    For Each r As DataRow In drs
        .DataCols("入库").RaiseDataColChanged(r)
    Next
End With

肯定执行。打开项目，执行11楼代码后，表事件就执行了。