以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  流程一的疑问  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41492)

--  作者:gsnake
--  发布时间:2013/10/21 0:44:00
--  流程一的疑问
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在加载数据之前,会先保存现有数据。



还加有什么用?????????


--  作者:Bin
--  发布时间:2013/10/21 9:11:00
--  
你修改了哪个列,他会保存哪个列,没修改的列,会进行同步.重新加载!