以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51149)

--  作者：yangxing --  发布时间：2014/5/20 19:19:00 --  [求助] If e.Row("编辑者") = User.Name Then \'如果编辑者是当前用户     Return  End  If  Dim cmd As New  SQLCommand  Dim exp As String  = "编辑者 Is Null And [编号] = " & e.Row("编号") cmd.C  cmd.CommandText = "Update {业务流程表} Set 编辑者 = \'" & User.Name & "\' Where " &  exp  If cmd.ExecuteNonQuery = 1 Then     e.Row("编辑者") = User.Name  Else      cmd.CommandText = "Select 编辑者 From {业务流程表} Where [编号] = " & e.Row("编号")       Dim nm As String = cmd.ExecuteScalar     If nm > "" Then         MessageBox.show(nm &  "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)      Else         MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)      End If     e.Cancel = True  \'取消编辑 End  If 此主题相关图片如下：3ztj~b)c{mgicv0ztjb(82.jpg