以文本方式查看主题 - 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 -- 你修改了哪个列,他会保存哪个列,没修改的列,会进行同步.重新加载! |