Dim r As Row = Tables("商品明细表").Current
for each dr as datarow in DataTables("商品名称附表").Select("商品编号 = '" & r("商品编号") & "'")
dr("IsDelete") = 1
dr("DeleteUser") =_UserName
dr("DeleteDate") = Date.Today
next
DataTables("商品名称附表").LoadFilter = "IsDelete = 0"
DataTables("商品名称附表").Load