主题：流程一的疑问

Dim r As Row = Tables("表A").Current
r.DataRow.Load() '重新加载此行的数据
If r.IsNull("标记") Then
Dim cmd as New SQLCommand
cmd.CommandText = "Update {表A} Set 标记 = -1 Where 标记 Is Null And [_Identify] = " & r("_Identify")
If cmd.ExecuteNonQuery = 1 Then '防止并发冲突,上面的条件是很关键的
Forms("流程1").Open()
Else
MessageBox.Show("其他用户已经抢先处理此行!")
End If
ElseIf r("标记") = -1 Then
Messagebox.Show("其他用户正在处理此行!")
Else
MessageBox.Show("流程1已经完成!")
End If

你修改了哪个列,他会保存哪个列,没修改的列,会进行同步.重新加载!