主题：请教，关联表的问题

关联表 StartEdit 表事件：

If e.Col.Name = "产品"
      Forms("筛选窗口").open

      e.Cancel = True
End If

搞不定就发个例子上来

??? 哪呢？？？

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

点击浏览该文件:窗口筛选.table

订单表中，你想编辑任何一个单元格时，都会跳出 筛选窗口 来的。

要这样：Tables("表A.表B").Cols("产品").DropForm = "筛选窗口"  但是不能自动展开。。。

Dim Sum As Double
Sum = Tables("表A.表B").Compute("Sum(数量)", "单号 = '" & Tables("表A").current("单号") & "'")

Tables("表A").current("合计数量") = Sum

看这个是否符合你的意思：

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

点击浏览该文件:关联表的问题.table

说明：

1、“点击关联表表的（下拉）窗口点‘产品’时其筛选窗口能跳出来”，这个做不到了，既然点击了产品单元格，多点击一次下拉按钮吧。  因为狐爸没有提供打开下拉窗口的命令。。。。 ；

2、双击下拉窗口的某行，会自动将单价、产品写入到关联表的当前行，但是产品列因为有下拉窗口的动作要离开单元格后才能写入新数据（我是用全局变量搞的，否则无法写入）；
3、产品列因为有下拉窗口的动作，要有个展开下拉窗口后的事件就好了，因为无法将焦点放到TextBox控件中去，此时就根本找不到焦点了；要有个判断下拉窗口是否打开的代码就好了。