一个按钮，同时修改：2万行的数据，可以吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim r As Row = Tables("材料").Current

If r Is Nothing Then

Return

Else

systemReady = False

For Each dr As DataRow In DataTables("材料").DataRows

If dr.IsNull("成本价")=False And dr("成本价") > 0 Then

dr("增值税率") = r("增值税率")

dr("挂靠管理费率")=r("挂靠管理费率")

dr("利润率") = r("利润率")

dr("主材损耗率") = r("主材损耗率")

dr("运杂费") = r("运杂费")

End If

systemReady = True

'DataTables("材料").Save()

End If

e.Form.Close

马上：FT 未响应了。有没有什么好办法解决？

[此贴子已经被作者于2016/7/28 22:13:27编辑过]

主题：一个按钮，同时修改：2万行的数据 ，可以吗