If e.DataCol.Name = "楼盘" AndAlso e.NewValue <> Nothing Then
'Forms("更新提示").Show
Dim fdr As DataRow = DataTables("楼盘资料表").Find("楼盘 = '" & e.NewValue & "'")
If fdr Is Nothing Then
fdr = DataTables("楼盘资料表").AddNew
fdr("楼盘") = e.DataRow("楼盘")
End If
End If
上面的代码我有15000行资料
默认加载是500,每次执行指挥执行当前显示的500行,如何后台全部一起执行呢?
[此贴子已经被作者于2019/11/5 0:21:51编辑过]