TreeView问题

mcy168

当我双击树中的如100102外币，时在录入窗体中的文本框中就出现：100101现金/外币，这种样子如何写代码？

[此贴子已经被作者于2006-9-18 20:04:43编辑过]

andymark

请把标题更改一下

mcy168

版主答一下吧

andymark

fan0217

月语：请将标题更改，所以控件应该是TreeView不是LIstView。下面是个自定义的小函数。




Function GetKmPath(strKmPath As String) As String
Dim varArr, strMyKM As String
Dim i As Integer
    varArr = Split(strKmPath & "\", " ", -1)
    For i = 0 To UBound(varArr)
        strMyKM = strMyKM & Left(varArr(i), InStr(varArr(i), "\"))
    Next
   GetKmPath = Left(strMyKM, Len(strMyKM) - 1)
End Function