主题：多用户操作的情况下这段代码会出现数量错误的情况么

DIM r as row = Tables("订单明细表").Current

Dim dr as datarow = DataTables("库存表").SQLFIND("产品 = '" & r("产品") & "'")

Dim i As Integer = dr("库存")

dr("库存") = i - r("库存")

dr.Save

多用户操作的情况下这段代码可能出现数量错误的情况么