- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我设计了一个父行和子行的同步刷新的按钮，运行后可以刷新数据，但是重新打开软件后，数据又变成没有刷新时的数据，需要重新刷新数据，这是什么回事？求救？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69016)
-- 发布时间：2015/5/29 9:09:00
-- 我设计了一个父行和子行的同步刷新的按钮，运行后可以刷新数据，但是重新打开软件后，数据又变成没有刷新时的数据，需要重新刷新数据，这是什么回事？求救？
-- 发布时间：2015/5/29 9:30:00
--
那你在afteropenproject那里再写一次刷新按钮的代码
-- 发布时间：2015/5/29 12:40:00
-- 还是不行哦？
父行和子行的同步刷新
Dim
r As Row = Tables("订单").Current
Dim
fl As String = "订单编号 = \'"
&
r("订单编号")
&
"\'"
r.Load() \'加载父行
LockBaseMainForm() \'锁定主窗口
DataTables("订单明细").StopRedraw
\'停止绘制订单明细
DataTables("订单明细").RemoveFor(fl) \'移除当前订单的订单明细
DataTables("订单明细").Appendload(fl) \'追载当前订单的订单明细
DataTables("订单明细").ResumeRedraw \'恢复绘制订单明细
UnLockBaseMainForm()
\'解锁主窗口
-- 发布时间：2015/5/29 13:01:00
--
那具体怎样不正确，做个例子发上来看看。
[此贴子已经被作者于2015/5/29 13:01:14编辑过]
-- 发布时间：2015/5/29 15:21:00
--
此主题相关图片如下：打开项目时.jpg
ploadFile/2015-5/201552915153658169.jpg" target="_blank">点击浏览该文件
刷新按钮的代码：
\'父行和子行的同步刷新
Dim r As Row = Tables("对帐单").Current
Dim fl As String = "供应商 = \'" & r("供应商") & "\'and 帐单号 = \'" & r("帐单号") & "\'"
r.Load() \'加载父行
LockBaseMainForm() \'锁定主窗口
DataTables("应付款").StopRedraw \'停止绘制客户报价明细
DataTables("应付款").RemoveFor(fl) \'移除当前订单的客户报价明细
DataTables("应付款").Appendload(fl) \'追载当前订单的客户报价明细
DataTables("应付款").ResumeRedraw \'恢复绘制客户报价明细
UnLockBaseMainForm() \'解锁主窗口
问题是：当我按刷新后，重新打开项目后，仍然显示“打开项目时”的图片
-- 发布时间：2015/5/29 15:29:00
--
呃，那你就写在窗口的AfterLoad事件里试试。
-- 发布时间：2015/5/29 15:37:00
--
试过了，还是不行
-- 发布时间：2015/5/29 15:38:00
--
上传例子看看
-- 发布时间：2015/5/29 15:45:00
--
刚才已经发了例子了
-- 发布时间：2015/5/29 15:50:00
--
此主题相关图片如下：按刷新后.jpg