主题：自行设计下拉目录树如何增加过滤条件

帮助中有一篇关于如果自行设计下拉目录树的，如下：

 

设计步骤

一、设计下拉窗口

1、新建一个窗口，名为“窗口1”，窗口类型设置为“DropDownForm”。

2、窗口中插入一个TreeView(目录树)控件。

3、窗口的AfterLoad事件设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

4、将刷新目录树按钮的代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

5、TreeView(目录树)的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

 

 

关于BuildTree，的语法是：

BuildTree(DataTableName, Columns, Filter, Sort)

 

请问各位高手，如果希望在表中的县市列，也能通过下拉目录树来输入内容，但是为了提高输入准确度，希望可以根据当前表的省的名称，目录树只显示该省的所有数据，该如果增加过滤条件呢？我怎么写代码都不对呀。

 

 

 

 

此主题相关图片如下：原因.jpg

trv.BuildTree("行政区域","省市|县市","所在省份 = '" & Tables("客户").Current("所在省份") & "'")

甜版主，编译错误，提示 Currnet 不是 Tables的成员！

 

再帮我看下呗！谢谢。

 你写错了，请认真看

惭愧，是我错啦，单词拼错了！