请教怎么处理刷新！

gxy1000

点添加按钮后，添加了新的经手人，当回到这个窗体里，在组合框内仍然看不到新添加的经手人，只有当本窗体关闭后，再重新打开，才能看到新添加的经手人，请问如果才能不用关闭后再打开这个窗体就能看到新添加的记录？

gxy1000

已经解决！！
Private Sub 组合框名称_GotFocus()
Me.组合框名称.Requery
End Sub

todaynew

gxy1000 发表于 2011-5-3 19:35
已经解决！！
Private Sub 组合框名称_GotFocus()
Me.组合框名称.Requery

如果窗体上有比较多的组合框、列表框、子窗体的话，可以写一个自定义函数来全部刷新相关的控件和子窗体。可以建一个按钮，用单击事件调用该函数。

Function Req(ctrls As Controls)
Dim ctrl As Control
For Each ctrl In ctrls
    If ctrl.ControlType = acComboBox Or ctrl.ControlType = acListBox Then
        ctrl.Requery
    End If
    If ctrl.ControlType = acSubform Then
        ctrl.Form.Requery
    End If
Next ctrl
End Function

gxy1000

学习！！！谢谢！！！