版主你好：

我在同一个窗口的beforeclose和afterclose分别写如下代码

before

If Tables("袜机状态表").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("请保存数据后再关闭!")
    e.Cancel = True
End If

after

Forms("织造车间袜机状态").Close
Forms("织造车间袜机状态").open

我修改数据后没有保存数据，直接点关闭窗口，弹出“请保存数据后再关闭”的提示，确定之后窗口本不应该关闭，但是却关闭了。

我把afterclose 的代码删除就不会关闭了，是两段代码有冲突吗？ 该如何避免？  afterclose中的代码我是想刷新数据用。

 没测试过，但是你不可以写在一起？

If Tables("袜机状态表").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("请保存数据后再关闭!")
    e.Cancel = True

Else

    \'这里写你其余的代码
End If

If Tables("袜机状态表").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("请保存数据后再关闭!")
    e.Cancel = True

Else

Forms("织造车间袜机状态").Close
Forms("织造车间袜机状态").open

End If

改成如上，还是关闭了，e.cancel 没起作用。

我要刷新的窗口中加载了TopicBar的代码

还是有这个情况。我明天把例子上传，版主帮忙看看吧

重新绘制试试

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Refresh()

虚拟模式参考http://www.foxtable.com/webhelp/scr/2843.htm

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

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

我是商业版做的，帮忙看下。 双击图片后修改内容，点击关闭后本不应关闭，结果还是关闭了窗口。

AfterClose代码

Dim Page As WinForm.TopicPage
Dim frm = Forms("织造车间袜机状态")
If frm.Opened Then
    Dim cnt1 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = True")
    Dim cnt2 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = False")
    Page = frm.Controls("TopicBar1").Pages("袜机状态")
    Page.Links("停止的袜机").Text = "停止的袜机(" & cnt2 & ")"
    Page.Links("运行的袜机").Text = "运行的袜机(" & cnt1 & ")"
End If