想做一树形目录，生成时无法完成，帮我看看。
if ! used("lwdw")
use lwdw
endif
thisform.treeview1.imagelist=thisform.imagelist2.OBJECT
select lwdw
thisform.treeview1.nodes.add(,0,"fa","来文单位管理")
select jibei from lwdw distinct into cursor temp_1
select temp_1
go top
do while ! eof()
    jib=alltrim(temp_1.jibei)
    thisform.treeview1.nodes.add("fa",4,jib,jib,1,1)
    select dwmc from lwdw where jibei=jib  into cursor temp_2
    select temp_2
    go top
    do while ! eof()
        dwm=alltrim(temp_2.dwmc)
        thisform.treeview1.nodes.add(jib,4,dwm,dwm,2,2)
    skip
    enddo
   
skip
enddo
&&&&&&&&&&&&&&&&&&&
lwdw的表很简单，就二个字段，一个是jibei,一个是dwmc,jibei是不唯一的，也就是先按jibei生成结点，然后按jibei生成下个结点了。现在这段代码的提示是说已经到文件末尾。有人能帮我吧，我ＶＦＰ大概有六年没有碰了，所以忘　了。

你切换到temp_2之后扫一遍了不把工作区换回temp_1就skip呀？

类似的循环，用scan,endscan结构可能会更省事些。

昨晚我又想了一下，就像你说的那样，可现在如何改呀。

已经弄好了，谢谢TonyDeng，好人拉，高手啦　。if ! used("lwdw")
use lwdw
endif
thisform.treeview1.imagelist=thisform.imagelist2.OBJECT
select lwdw
thisform.treeview1.nodes.add(,0,"fa","来文单位管理")
select jibei from lwdw distinct into cursor temp_1
select temp_1
go top
do while ! eof()
    jib=alltrim(temp_1.jibei)
    thisform.treeview1.nodes.add("fa",4,jib,jib,1,1)
    select dwmc from lwdw where jibei=jib  into cursor temp_2
    select temp_2
    go top
    do while ! eof()
        dwm=alltrim(temp_2.dwmc)
        thisform.treeview1.nodes.add(jib,4,dwm,dwm,2,2)
    skip
    enddo
    select temp_1 &&这条很关键哦。
skip
enddo

就是说你缺那条嘛，反应真快，呵呵~

那就投他一票