这个代码不应该会导致闪退。把项目里的bin目录完整删除干净,然后重启项目测试
代码可以优化一下
If Forms("新增客户订砖").opened
Dim r2 As Row = Tables("客户订砖总表").Current
For Each r As Row In Tables("商品明细表").GetCheckedRows
Dim r1 As Row = Tables("客户订砖明细表").AddNew
'客户订砖
r1("日期") = r2("日期")
r1("客户名称") = r2("客户名称")
r1("订砖单号") = r2("订砖单号")
r1("地址") = r2("地址")
r1("电话") = r2("电话")
r1("付款方式") = r2("付款方式")
r1("商品编号") = r("商品编号")
r1("商品类别") = r("商品类别")
r1("商品名称") = r("商品名称")
r1("规格型号") = r("规格型号")
r1("单位") = r("单位")
r1("单价") = r("单价")
Next
End If
e.Form.close