主题：如何防止别人替换数据

我做了一个管理系统，里面有一个｛日报表｝，日报表里面有一列【工序】名称，不同工序打开本工序时，只加载这个工序的数据，但有时明明数据都录入进去，并且关闭再打开查看，录入的数据都是正确的，可后来再打开的时侯，被其他工序的替换了，并且其它工序录入的数据不见了。这是什么原因，

这个特意去试的时侯，发现不了问题，录入的数据只有极少部分存在这种情况，其它大部分都很正常

这是我在日报表上写的代码

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

点击浏览该文件:日报表中代码.txt

日报表窗口上添加代码如下：

 

Dim dr As Row
dr = Tables("日报表").AddNew()
dr("工序") = rb
dr("记录人") = _UserName
DataTables("日报表").Save()

这个是按照不同工序分别打开各自工序的报表

 

If e.Node.Level = 1 Then
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim dr As DataRow = DataTables("部门工段清单").Find("部门 = '" & ps(0) & "' And 工序 = '" & ps(1) & "'")
    If dr IsNot Nothing And dr("负责人")=_UserName Or _UserIsRole = "管理员" Then
       rb=dr("工序")
       Select dr("部门")
         Case "一工段","二工段","三工段","四工段","五工段","六工段","干压线","动作杆线"
         Forms("日报表").show()
         DataTables("日报表").loadFilter = "工序=  '" & dr("工序") & "'and 生产数 Is Null"
         DataTables("日报表").load
         With Tables("日报表")
             .Position = .Rows.Count - 1
         End With
       End Select
    End If
End If