1

我正在使用一些旧的 VB6 代码并且有一个我正在尝试纠正的场景。我有一个表格，允许您输入个人 ID（在顶部的文本框中使用租户），然后单击“显示”，它会在同一表格的文本框中列出约会。还有一个按钮可以加载一个新表单，允许用户编辑显示的数据并保存更改。

例如，将人的年龄从 65 岁更改为 64 岁。我进行此更改并保存它。保存成功，我卸载表单返回Form1。但是，我必须再次单击“显示”以刷新文本框中显示的数据，以确保更改可见。我不知道如何刷新此表单，因此用户不必单击“显示”即可使用新值重新填充文本框。有人可以帮忙吗？我不能只创建 Form1 的新实例，因为如果我这样做了，则人员 ID 字段将是空白的。

谢谢！

简短版：如何刷新表单以获取最新数据，同时仍获取相关人员 ID。

4

4 回答 4

4

这里没有足够的信息来回答你的问题。您在这种情况下使用的一般模式如下：

  1. SearchForm 启动 ViewForm。
  2. ViewForm 启动 EditForm。当 ViewForm 构造它的 EditForm 实例时，它会传递Me给 EditForm（可能通过设置 EditForm.Parent）。
  3. 当 EditForm 的 Save 按钮单击事件触发时，它调用 Parent.ReloadData（其中 Parent 是启动 EditForm 的 ViewForm）。
于 2013-01-11T15:06:56.983 回答
2

这是应该有效的方法。在编辑器中有一个公共属性，它返回表单是否被取消。（。取消）。您将拥有一个对象，该对象带有您尝试更改其年龄的人的属性。然后就很简单了。主窗体中的代码：

dim oPerson as clsPerson
dim oFrm as frmAgeEditor

set oPerson = GetCurrentPerson()
set oFrm = new frmAgeEditor


with oFrm
    set .Person = oPerson
    .Show vbModal

    if not .Cancelled then
        ' Update Main form with the contents of oPerson

    end if

end with
于 2013-01-12T00:54:30.203 回答
0

您可以在更新后立即调用“显示”功能。

于 2013-01-11T15:57:06.953 回答
0 
Call Me.frmParent.Refresh

我用它来刷新屏幕而不会丢失数据。我不得不挖掘很多旧代码才能弄清楚。这部分是很久以前写的，效果很好。

Public Sub Refresh()
Call cmdDetails_Click
If tvwScreeningSchedule.Nodes.Count > 0 Then
    tvwScreeningSchedule.SelectedItem = tvwScreeningSchedule.Nodes(1)
    Call tvwScreeningSchedule_Click
End If

End Sub

这是一个非常具体的功能，“cmdDetails_Click”包含很多自定义验证，但它与 AngryHackers 的答案并不太相似。

于 2013-01-14T12:45:00.183 回答