在click事件中添加如下代码

If e.Col.name="产品编号" Then
    If Tables("销售订单").current IsNot Nothing Then
        Dim r As Row=Tables("销售订单").current
        Select Case r("单据类型")
            Case "新单"
                e.Col.DropForm="报价单检索"
               
            Case "翻单"
                e.Col.DropForm="产品资料检索004"
        End Select
    End If
   
End If

父表的单据类型 datacolchanged事件中也添加了改变下拉窗口的代码

现在发现 在改变父表单据类型后 再点击产品编号单元格不能更新下拉窗口 必须 点击其他单元格再来点击这个单元格才能触发

老大 试了 没用啊 感觉就是必须要离开要触发的列重新点击一次才能触发事件

做一个简单的例子，传上来。

在Click事件中写这样的代码，不合适。