主题：[求助]独占编辑二的问题

 呃，只要你按着规矩来，不可能出现你这种情况。

 

 这句代码，就直接生效了，不会执行下面的代码 If e.Row("编辑者") = User.Name Then '如果编辑者是当前用户

 代码没问题，只要你按着规矩来，就一定没问题。

是的，加入msgbox看一下内容。

 

肯定你没有赋值

If e.DataRow("编辑者") = User.Name OrElse e.DataRow.RowState = DataRowState.Detached OrElse e.DataRow.RowState = DataRowState.Added Then '如果编辑者是当前用户
    Return
End If

http://www.foxtable.com/help/topics/0428.htm

 

 新增行的时候，触发了datacolchanging事件。

 

 你必须加一个判断，如

 

If e.DataCol.Name = "编辑者" then Return

 

 或者判断，此行是不是新增的行

 

If e.DataRow("编辑者") = User.Name OrElse e.DataRow.RowState = DataRowState.Detached OrElse e.DataRow.RowState = DataRowState.Added Then '如果编辑者是当前用户     Return End If

 

Tables("员工").Current("编辑者") = Nothing
Tables("员工").Current.Save
With Tables("员工")
    .Position = .Position + 1
End With

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb