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

试试改成这样

Dim n As Integer=Tables("工程相关合同定标情况表").current("标段数量")
Dim cr As Row = Tables("工程相关合同定标情况表").current
Tables("合同基本信息表").StopRedraw
systemready = False
For i As Integer=0 To n-1
    Dim nr = Tables("合同基本信息表").addnew()
    nr("公司名称")=cr("公司名称")
    nr("地块")=cr("地块")
    nr("一级费项名称")=cr("一级费项名称")
    nr("二级费项名称")=cr("二级费项名称")
    nr("三级费项名称")=cr("三级费项名称")
    nr("合同名称")=cr("合同名称")
    nr("承办部门")=cr("承办部门")
    nr("是否属于专业暂估")=cr("是否属于专业暂估")
    nr("是否为工程合同")=cr("是否为工程合同")
    nr("是否计入其他产值")=cr("是否计入其他产值")
    nr("合同确定方式")=cr("合同确定方式")
Next
systemready = true
Tables("合同基本信息表").ResumeRedraw
'Tables("合同基本信息表").save

看红色代码

Dim n As Integer=Tables("工程相关合同定标情况表").current("标段数量")
Dim cr As Row = Tables("工程相关合同定标情况表").current
Tables("合同基本信息表").StopRedraw    '停止表格刷新
systemready = False      '停止执行额外代码，你有可能赋值的时候，datacolchanged触发，耗时
For i As Integer=0 To n-1
    Dim nr = Tables("合同基本信息表").addnew()
    nr("公司名称")=cr("公司名称")
    nr("地块")=cr("地块")
    nr("一级费项名称")=cr("一级费项名称")
    nr("二级费项名称")=cr("二级费项名称")
    nr("三级费项名称")=cr("三级费项名称")
    nr("合同名称")=cr("合同名称")
    nr("承办部门")=cr("承办部门")
    nr("是否属于专业暂估")=cr("是否属于专业暂估")
    nr("是否为工程合同")=cr("是否为工程合同")
    nr("是否计入其他产值")=cr("是否计入其他产值")
    nr("合同确定方式")=cr("合同确定方式")
Next
systemready = true '恢复
Tables("合同基本信息表").ResumeRedraw  '恢复
'Tables("合同基本信息表").save   '暂时不保存