TreeView控件,Node.Text值有重复时如何处理?

cnjxndlc

看了eddieliu的三小时掌握TreeView控件,根据我的工作需要学着做了一个(远不止三小时),但是还有一个问题没有解决:

整个Tree分为县乡村组四级,点击时通过str = "[组名]='" & Node.Text & "'" 获取组名并筛选,但使用过程中发现,组名有重复,虽然我加了组代码,减少了重复量,但还是有重复的,如24蔡江乡03白门村01上屋组与05黄石镇09田坑村01上屋组就重复了,点击24蔡江组03白门村01上屋组时筛选出来的记录是黄石镇的.

       如果把str = "[组名]='" & Node.Text & "'"中的[组名]改成[乡村组];后面的部份改成乡村组的串接字符,这个问题应该可能解决,但我不知道如何在点击组名时获得其父及爷的.Text 。 或者还有其它更好的办法？ 请高手指点！

cnjxndlc

琢磨了这么一个笨办法,还算可行

str = "[乡村组]='" & Mid(Node.Parent.Parent.Text, 3, 5) & Mid(Node.Parent.Text, 3, 5) & Mid(Node.Text, 3, 5) & "'"

cnjxndlc

接下来的问题是,我想使乡村组的值变成新增记录的默认值,该如何解决?

ui

Dim mlngIndex As Long

[ 本帖最后由 ui 于 2008-10-3 23:09 编辑 ]