按钮的click事件，将A表的行的某些字段，复制到B表。运行慢（要等甚至1分钟多，窗口才会关闭），该怎么优化啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

……

e.Form.Controls("确定").enabled=False

e.Form.Controls("取消").enabled=False

Dim n As Integer=Tables("工程相关合同定标情况表").current("标段数量")

For i As Integer=0 To n-1

Tables("合同基本信息表").addnew()

Tables("合同基本信息表").current("公司名称")=Tables("工程相关合同定标情况表").current("公司名称")

Tables("合同基本信息表").current("地块")=Tables("工程相关合同定标情况表").current("地块")

Tables("合同基本信息表").current("一级费项名称")=Tables("工程相关合同定标情况表").current("一级费项名称")

Tables("合同基本信息表").current("二级费项名称")=Tables("工程相关合同定标情况表").current("二级费项名称")

Tables("合同基本信息表").current("三级费项名称")=Tables("工程相关合同定标情况表").current("三级费项名称")

Tables("合同基本信息表").current("合同名称")=Tables("工程相关合同定标情况表").current("合同名称")

Tables("合同基本信息表").current("承办部门")=Tables("工程相关合同定标情况表").current("承办部门")

Tables("合同基本信息表").current("是否属于专业暂估")=Tables("工程相关合同定标情况表").current("是否属于专业暂估")

Tables("合同基本信息表").current("是否为工程合同")=Tables("工程相关合同定标情况表").current("是否为工程合同")

Tables("合同基本信息表").current("是否计入其他产值")=Tables("工程相关合同定标情况表").current("是否计入其他产值")

Tables("合同基本信息表").current("合同确定方式")=Tables("工程相关合同定标情况表").current("合同确定方式")

Tables("合同基本信息表").save

e.Form.Controls("确定").enabled=True

e.Form.Controls("取消").enabled=True

forms("增加一条开标评标信息").close()

End If

[此贴子已经被作者于2018/3/19 16:26:10编辑过]

主题：按钮的click事件，将A表的行的某些字段，复制到B表。运行慢（要等甚至1分钟多，窗口才会关闭），该怎么优化啊？