有跨窗体调用的朋友请帮忙

Question

我有一个员工档案管理窗口，在员工信息其中有一个组合框，其内容是员工所属的部门，在这个旁边我加了一个按钮可以进行对部门的编辑，单击它则是弹出另外一个窗口，就是部门档案管理窗口，同样有增删改等操作，现在我要实现的功能是这样的：在部门档案编辑完毕退出窗口时，能对员工档案管理窗口中的部门组合框中的内容进行实时更新填充，请问如何实现?当然在员工档案中有一个过程专门是填弃部门个组合框的，窗体一加载时进行填充没有问题，可是我如何在单击这个部门组合框旁边这个编辑按钮进行了部门的增删改等操作退出后，进行实时的组合框内容更新，请给出有效的实现方法谢谢各位大侠

Answer 1

你可以在退出部门窗口的事件中，用员工窗口.所选员工号来再调一下你显示部门组合框内容的过程。
或在整个工程中设一当前员工的公共变量，在退出部门窗口的事件中，再重新show一下员工窗体，当然这时应以当前员工公共变量来初始你所刚选的员工。

Answer 2

在退出时可以直接对第一个窗体的控件进行操作，如果不能显示，请按楼上的重新show或者刷新一下窗体

Answer 3

将你的过程设为公共的
然后在部门编辑窗口的unload事件中调用此过程

Answer 4

call 窗体名.过程名
过程可是要公共的。

Answer 5

建立一个单独的过程，在窗体unload 时调用它。

Answer 6

建议你在主窗体的Form_Laod()事件中添加更新（填充）的代码（就像你在Form_Load()中写的代码），这样在主窗体被刷新的时候就会自动更新（填充）了

Answer 7

定义一个公共过程，其内容能实现对部门档案进行管理 
   然后在部门档案管理窗口中的OK按钮和UNLOAD事件中调用它就行了

Answer 8

假设你的员工管理窗口为frmEmployee，并写有类似下面的公有过程Public Sub fillComboDepartment()
On Error GoTo errorhandler
    cboDepartment.Clear
    If rs.State = adStateOpen Then rs.Close
        rs.Open "select * from Department order by cDepartmentID", con, adOpenDynamic, adLockOptimistic
    cboDepartment.Clear
    rs.MoveFirst
    While Not rs.EOF
        cboDepartment.AddItem rs("cDepartmentID") & " " & rs("vDepartmentName")
        rs.MoveNext
    Wend
    rs.Close
    Exit Sub
errorhandler:
   Exit Sub
End Sub在部门管理窗口中如下调用即可
frmEmployee.fillComboDepartment