主题：目录树筛选错误，求助！

 

我在表 订单明细 中做了一个目录树筛选，前两天还好好的，不知道为什么今天筛选错误，筛选不到正确的值，请高手帮我看下，谢谢！

 

 

 

此主题相关图片如下：目录树错误.jpg

 

是根据帮助中的 自建通用目录树的方法做的，做了DropDownForm窗口，窗口的afterload代码如下：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("产品明细表","客户|客户产品号","客户 = '" & Tables("订单明细表").Current("客户")&"'")

 

NodeMouseClick 代码如下：

 

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("订单明细表").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("客户产品号") = dr("客户产品号")
    tr("材料编号") = dr("材料编号")
    tr("内控产品号") = dr("内控产品号")
    tr("产品描述") = dr("产品描述")
    e.Form.DropDownBox.Value = tr("客户产品号")

  e.Form.DropDownBox.CloseDropdown()
End If

 

请高手看下错误在哪里！谢谢！

 

 

上个例子看看

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

点击浏览该文件:客户订单管理.rar

 

订单明细表不可以增加行，需要先在订单主表增加行后，订单明细表就会自动增加行了。

 代码写到DropDownOpening事件

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("产品明细表","客户|客户产品号","客户 = '" & Tables("订单明细表").Current("客户")&"'")

太好了，谢谢甜老师！