- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 保存问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6165)
-- 发布时间：2010/3/12 20:02:00
-- 保存问题
第一步：点按钮：
此主题相关图片如下：未命名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
[此贴子已经被作者于2010-3-12 20:04:56编辑过]
-- 发布时间：2010/3/12 20:13:00
--
此主题相关图片如下：未命名3.bmp
修改以后点按钮，按钮代码：
Forms("加工中心产品工艺修改").Controls("最后修改").Value = Tables("登陆")(0)("用户名") & " " & now \'指定控件内容
Forms("加工中心产品工艺修改").Controls("最后修改").WriteValue \'指定控件内容重写
Tables("产品工艺").Current.Locked = True \'锁定行
Tables("产品工艺").AllowEdit = False
DataTables("产品工艺").Save()\'保存
Forms("加工中心产品工艺修改").Close() \'关闭窗口
修改以后，在本窗口不管怎么同步、重算，都不会变化，是要的结果。
此主题相关图片如下：未命名4.bmp
-- 发布时间：2010/3/12 20:18:00
-- 寻找
点下图配置栏切换按钮：
按钮代码：
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
-- 发布时间：2010/3/12 20:26:00
--
被修改数据由还原了：
不管怎么同步，保存都一样：
此主题相关图片如下：未命名7.bmp
-- 发布时间：2010/3/12 20:34:00
--
以上我反复操作，都是这样，郁闷，有兴趣的朋友可以远程桌面看看，分析代码我又找不出问题所在。
-- 发布时间：2010/3/12 20:48:00
--
晕菜啦~~~ 帮你顶~````````````````
-- 发布时间：2010/3/12 21:00:00
--
我只要不操作3楼下面的，就不会有问题，在其他表中有调用该数据，也看得到已修改，但只要一按3楼下面的记录日报表按钮，就不对，现在还还发现有乱跳的现象。
-- 发布时间：2010/3/12 21:06:00
--
你的图片能不能用gif格式？
bmp太大了，打开帖子都要等很久。
-- 发布时间：2010/3/12 21:12:00
--
如果你的数据是加载到窗口来修改, 3楼代码在保存前把窗口全部关闭了, 当然就无法真实保存了......
-- 发布时间：2010/3/12 21:19:00
--
图片无法再上传，提示一次只能传3个，我删除只加一个也是提示。