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

 畜牧出库明细表的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

 我设置了，测试没有问题，设置以后，会报错，你退出重新打开以后，就正常了。

 代码

 

For Each dr As DataRow In DataTables("社员基本信息").DataRows
    Dim sum As Double
    sum = DataTables("社员消费明细").Compute("Sum(单价)","社员ID = '" & dr("社员信息_社员ID") & "' and 配送日期 <= #" & Date.Today & "# ")
    dr("蔬菜余额")=sum
Next

 你应该写在afterOpenProject事件里，每次打开项目的时候，就计算一次。

 代码

 

Tables("社员基本信息.社员消费明细").Visible = True
Tables("社员基本信息.社员消费明细").Sort = "配送日期"
Dim fdr As DataRow = DataTables("社员消费明细").Find("社员ID = '" & Tables("社员基本信息").Current("社员信息_社员ID") & "' and 配送日期 <= #" & Date.Today & "#", "配送日期 desc")
Tables("社员基本信息.社员消费明细").Position = Tables("社员基本信息.社员消费明细").FindRow(fdr)

With Tables("社员基本信息.畜牧出库单")
    .Position = .Rows.Count - 1
    .current.Locked = False
End With