主题：保存问题

第一步：点按钮：

此主题相关图片如下：未命名1.bmp

本按钮代码
MainTable = Tables("产品目录")
Forms("工艺查询").Show()
Forms("产品工艺录入").Show()
DataTables ("产品目录").Load
DataTables ("产品工序").Load
DataTables ("产品工艺").Load
看到的现象如下图：
需要修改最下面表的"工艺_工作中心组"列
   
此主题相关图片如下：未命名2.bmp

双击小窗口行的代码：
If e.Table.name = "产品工艺录入_Table5" '如果操作窗口控件
        If  Vars("用户组") = "管理员"  or Vars("用户组") = "车间主管"  or Vars("用户组") = "录入员"  or Vars("用户组") = "加工中心班长"  '如果用户
            Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行
            Tables("产品工艺").ApplyFilter = False '主表取消筛选
            tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
            Tables("产品工艺").AllowEdit = True '主表取消锁定
            Tables("产品工艺").Current.Locked = False '取消锁定行
            Forms("加工中心产品工艺修改").open() '打开窗口
            Return '否则不执行
        End If
    End If   

此主题相关图片如下：未命名3.bmp

修改以后点按钮，按钮代码：
Forms("加工中心产品工艺修改").Controls("最后修改").Value = Tables("登陆")(0)("用户名") & " " & now '指定控件内容
Forms("加工中心产品工艺修改").Controls("最后修改").WriteValue '指定控件内容重写
Tables("产品工艺").Current.Locked = True '锁定行
Tables("产品工艺").AllowEdit = False
DataTables("产品工艺").Save()'保存
Forms("加工中心产品工艺修改").Close() '关闭窗口

修改以后，在本窗口不管怎么同步、重算，都不会变化，是要的结果。

此主题相关图片如下：未命名4.bmp

点下图配置栏切换按钮：
按钮代码：
For each frm As WinForm.Form In Forms
    frm.Close '关闭所有窗口
Next
MainTable = Tables("登陆")
Forms("界面").Show()
For Each dt As DataTable In DataTables
    dt.Save()'保存所有数据
Next

此主题相关图片如下：未命名5.bmp

返回图1界面，点以下[记录日报表]按钮：
按钮代码如下：
MainTable = Tables("产品目录")
Forms("工艺查询").Show()
Forms("日报表录入").Show()
DataTables ("产品目录").Load
DataTables ("产品工序").Load
DataTables ("产品工艺").Load
DataTables ("日报表").Load



此主题相关图片如下：未命名6.bmp

被修改数据由还原了：
不管怎么同步，保存都一样：

此主题相关图片如下：未命名7.bmp

以上我反复操作，都是这样，郁闷，有兴趣的朋友可以远程桌面看看，分析代码我又找不出问题所在。

我只要不操作3楼下面的，就不会有问题，在其他表中有调用该数据，也看得到已修改，但只要一按3楼下面的记录日报表按钮，就不对，现在还还发现有乱跳的现象。

图片无法再上传，提示一次只能传3个，我删除只加一个也是提示。