1、窗口中的控件绑定到表中对应的列
2、首先用buildtree生成目录树。
3、设置目录树的AfterSelect事件代码,定位到单击节点所对应的行,例如:
Dim Vals() As String = e.Node.FullPath.Split("\") Dim Filter As String = "[省市] = '" & Vals(0) & "' And [县市] = '" & Vals(1) & "'"Tables("表名").Position = Tables("表名").findRow(Filter,0,False)