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

 代码

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