带子窗体的移动窗体页该如何处理

简

当我的光标落在子窗体后，我再点击列表框想进行选择时，就会出现错误提示而无法进行操作。

如果没有子窗体，则列表框的选择操作就正常。

因此想问：不管有无子窗体，要想让列表框都能正常操作，这种效果该如何编程处理呢。

li08hua

加一个错误处理

liwen

Dim a As Integer

Private Sub lb0_Click()
With Me.sub0.Form
    .bl1 = True
    Me.sub0.SetFocus

    If a = 1 Or a = 0 Then .txtpinghao.SetFocus

   .GoToPage Me.lb0.Value
    .bl1 = False
    Me.lb0.SetFocus
End With

a = Me.lb0.Value

End Sub

简

我知道焦点要放在子窗外之外的某个控件上，为此我曾设置me.按钮控件.setFocus，但也不起作用。

所以我在想，为什么要加个变量a， If a = 1 Or a = 0 Then .txtpinghao.SetFocus就可达到预期效果呢。