主题：DataColChanged计算至到另一个表中

'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