例子在这里：

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

点击浏览该文件:管理项目24.table

哈哈，自己已经琢磨出来了，在窗口2的DropDownOpened事件中加上一行代码就可以了：

Forms("窗口1").Select

原来我用e.Form.DropDownBox.Form.Select总是出错，看来不能这样用。

焦点问题解决了,但为什么没有动态筛选呢?请老大再帮忙看看:

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

点击浏览该文件:管理项目24.table

为什么设置在dropdownopening就不行呢?这里的事件是在展开下拉窗口前执行的啊.

老大,还有问题啊,再看看这个,筛选出需要的记录后,回车一次为什么无法填入?需要2次才可以?

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

点击浏览该文件:管理项目24.table

8楼的问题找到原因了。这样测试就能发现，在dropbox的keydown事件中，即使用这样的代码，照样不提示：

        Case Keys.Enter
             e.Cancel = True
             MessageBox.Show(1)
莫非是Enter键给屏蔽了？

不明白为什么这样，改成右键吧：

If Forms("窗口2").Opened Then
    Dim t As Table = Tables("窗口2_Table1")
    Select Case e.KeyCode
        Case Keys.Up
            t.Position = t.Position - 1
            e.Cancel = True
        Case Keys.Down
            t.Position = t.Position + 1
            e.Cancel = True
        Case Keys.Right
            e.Cancel = True
            e.Sender.Value = t.Current("第一列")
            e.Sender.CloseDropdown
    End Select
End If