主题：下拉窗口的问题

datacolchanged事件

If e.DataCol.Name = "合同号" Then
    Dim dr As DataRow
    dr = DataTables("表b").Find("[销售合同] = '" & e.oldvalue & "'")
    If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
        dr("销售合同") = e.newvalue
    End If
End If

http://www.foxtable.com/webhelp/scr/2490.htm