主题：代码实现下拉窗口的效果

呃，你这个功能，本来就有，而且你的更简单

http://www.foxtable.com/help/topics/2465.htm

 做一个独立窗口，点击的时候就打开就好。

 控制一下独立窗口的位置为鼠标的位置即可。

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y

msgbox(x & " " & y)

或者click事件写代码

e.Table.StartEditing
e.Table.cols("第一列").OpenDropDown

每一列都设置一个下拉窗口

for each c as col in tables("表A").cols
    c.DropForm = "窗口1"
Next

Click事件代码

e.Table.StartEditing
e.Col.OpenDropDown

如果不用8楼，弹出一个窗口显示也是不错的选择啊。