DataColChanged计算至到另一个表中 Post By:2018/3/5 11:51:00 [只看该作者]
'Dim dr As DataRow 'dr = DataTables("商品明细").Find("条形码 = '" & e.Row("条形码") & "'") ' 'If dr IsNot Nothing Then 'If e.Row("销售数量") > dr("剩余数量") Then 'MessageBox.Show("商品数量不足,请核实商品信息","提示") 'e.Row("销售数量")=Nothing 'Return 'End If 'dr("销售数量")=e.Row("销售数量") + dr("销售数量") 'dr("剩余数量")=dr("上架数量")-dr("销售数量") 'End If