看了一下,很简单,你在下拉窗口的DropDownOpening事件写入代码
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree("行政区域","省|县市","县市 like '%" & e.Form.DropDownBox.Text & "%'")