Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("合同信息","合同公司","计划号 = \'" & Forms("半成品窗口录入").Controls("TextBox1").Value & "\'")

这段代码是半成品表里面的下拉窗口代码意思：

当在半成品双击单元格的时候会弹出窗口录入，这时在计划号里面输入合同信息表里面相对应的计划号，会在下面一系列的下拉窗口中自动筛选出相对应计划号的所需要的内容。上面的代码是只针对一个计划号条件进行对合同公司的筛选，

当计划号条件1成立，而后当材质条件2成立，能不能自动在砖号下拉表中自动筛选出相对应的计划号与材质下的砖号，而不计划号里面的砖号。

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

点击浏览该文件:统计演示.table

求高手帮助

Dim r As Row = Tables("半成品").Current

If r IsNot Nothing then

   Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    trv.BuildTree("合同信息","合同公司","计划号 = \'" & r("计划号") & "\' And 材质 = \'" & r("材质") & "\' ")

End If