闪可以在代码最前面加入
talbes("表名").StopRedraw
最后加入 talbes("表名").ResumeRedraw
Save放到循环外
talbes("表名").StopRedraw
For Each dr As DataRow In DataTables("RUKU_TABLE1").DataRows
If dr("编码") = "" Or dr.IsNull("金额") Then
dr.Delete()
DataTables("dingdan").Save
For Each dr1 As DataRow In DataTables("RUKU_TABLE1").DataRows
If dr1.IsNull("id") Then
dr1("id") = Tables("DINGDAN").Current("id")
End If
Next
End If
Next
DataTables("RUKU_TABLE1").Save
talbes("表名").ResumeRedraw
加好友 
发短信
Post By：2015/6/2 15:41:00 [显示全部帖子]
