主题：内部索引已损坏

 你上传一个数据库是什么意思？项目发上来。

 汗，看了一下，你的数据库和文件都没有问题的，是你afteropenproject的这两句代码导致的

 

DataTables("员工名单").DataCols("入职日期").RaiseDataColChanged()
DataTables("出入库").DataCols("出入库日期").RaiseDataColChanged()

 

 每次进入系统，都会重复计算，那么你保存的时候，就要保存几千行的数据，肯定慢。

 

Select Case e.DataCol.name
    Case "出入库日期"
        If e.DataRow.IsNull("出入库日期") Then
            e.DataRow("已出库天数") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出入库日期"))
            e.DataRow("已出库天数") = Math.Round(tp.TotalDays / 1,0)
        End If
End Select

 

 要么，不计算，要么，把 已出库天数 改成表达式列