主题：[求助]增加数据行非常慢 估计我代码算法问题

 畜牧出库明细表的DataColchanged事件改一下

If e.DataCol.Name = "配送日期" Then
   If e.DataRow.IsNull("配送日期") = False Then
        e.DataRow("星期") = Format(e.DataRow("配送日期"), "dddd")
   End If
End If

If e.DataCol.name="数量" Then
   DataTables("畜牧出库单").DataCols("存款金额").RaiseDataColChanged("_Identify = '" & e.DataRow("出库编号") & "'")
End If
If e.DataCol.name="单价" Then
   DataTables("畜牧出库单").DataCols("存款金额").RaiseDataColChanged("_Identify = '" & e.DataRow("出库编号") & "'")
End If