主题：错误所在事件：项目,AfterOpenProject

 试试改一下

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