主题：关于减库存问题！

Dim dr As DataRow
Dim cr As Row = Tables("领料单_主表.领料单_明细").Current
dr = DataTables("仓库物料表_主表").Find("料号 = '" & cr("料号") &  "'")
If dr IsNot Nothing Then
    dr("实时库存") = dr("实时库存") - cr("领用数量")
End If

做了一个确定键，但是只能保存一行的数据，哪位高手指点一下如何更上面的代码！