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
Load() 在默认的情况下，Load在加载数据之前，会先保存现有数据。
还加有什么用？？？？？？？？？
加好友 
发短信
Post By：2013/10/21 0:44:00 [显示全部帖子]
