Select Case e.DataCol.name Case "挂" If e.NewValue = True Then Dim f As DataRow = DataTables("表A").sqlfind("商品名称 = '" & e.DataRow("商品名称") & "'") If f IsNot Nothing Then MessageBox.show(1) f("数量") = f("数量") - e.DataRow("数量") f("金额") = f("金额") - e.DataRow("金额") DataTables("表A").save DataTables("表B").save End If End If End Select