关于TreeView的实例问题

[cjh211]

1、自定义函数：
wf_delete_tv() ，参数 as_passed_treeviewid 为Treeview类型
2、函数中的代码：
//删除TreeView控件中所有的数据项

Long ll_tvi

ll_tvi = as_passed_treeviewid.FindItem( RootTreeItem! , 0 )
as_passed_treeviewid.DeleteItem( ll_tvi )

3、使用：
在窗口的Open中写：
tv_1 itv_1
wf_delete_tv( itv_1 )

使用时通不过，为什么呀？

[fzymr]

如果还是同样的错误就检查你的树形控件的名称对不对，删除 tv_1 itv_1 这行，然后再wf_delete_tv() 写你的属性控件的名称

[cjh211]

我这个也通不过：

/******************************************************

1、功能：从指定的菜单中读取数据传递给TreeView
2、参数：as_passed_menuid ，menu类型 ；as_passed_treeviewid ，TreeView类型

*******************************************************/


String ls_menu_item_class
String ls_menu_item_text
Long ll_prior_handle

TreeViewItem tvi

ls_menu_item_class = ClassName( as_passed_menuid )
ls_menu_item_text = as_passed_menuid.Text

tvi.Label = ls_menu_item_text //项目的标识文字
tvi.Data = ls_menu_item_class
tvi.PictureIndex = 1
tvi.SelectedPictureIndex = 2
tvi.Children = False

IF il_local_level = 0 THEN
ls_menu_item_text = "主菜单"
tvi.Label = ls_menu_item_text
tvi.Data = ls_menu_item_class
tvi.PictureIndex = 1
tvi.SelectedPictureIndex = 2
tvi.Children = False
as_passed_treeviewid.InsertItemLast( 0 , tvi )
ELSE
tvi.StatePictureIndex = 2
IF il_local_level = 1 THEN
tvi.Children = False
as_passed_treeviewid.InsertItemLast( 1 , tvi )
ELSE
ll_prior_handle = wf_get_tv_handle( as_passed_treeviewid , ls_menu_item_class )
tvi.Label = ls_menu_item_text
tvi.Data = ls_menu_item_class
tvi.PictureIndex = 1
tvi.SelectedPictureIndex = 2
tvi.Children = False
as_passed_treeviewid.InsertItemLast( ll_prior_handle , tvi )
END IF
END IF

//
Integer li_item_index //第几项
Integer li_item_sum //总数

li_item_sum = UpperBound( as_passed_menuid.item[] )

FOR li_item_index = 1 TO li_item_sum
il_prior_level = il_local_level
ls_menu_item_class = ClassName( as_passed_menuid )
ls_menu_item_text = as_passed_menuid.Text
il_local_level ++
wf_get_menu( as_passed_menuid.item[li_item_index] , as_passed_treeviewid )
NEXT

[zhanwei]

编译通不过呀？

[cjh211]

参数：as_passed_menuid ，menu类型 ；as_passed_treeviewid ，TreeView类型

返回：无

我可以，你再试试。

[cjh211]

解决的话，我再开新贴加200分！

[zhanwei]

我给你找替代原码吧！

[zhanwei]

到http://www.pdriver.com/display.asp?key_id=1481去载一个看看，要不给我信箱我给你发一个！

[cjh211]

好的，谢谢！！！

[cjh211]

那个我有了的，我现在在改动的。

[zhanwei]

参照着改？重新写？研究？

[cjh211]

参照着改。

[cjh211]

非常感谢：fzymr(风中游牧人)　和 zhanwei(詹维)　！！！

问题解决了。

[my_wei]

关注

[my_wei]

怎么改的哦

[logapi]

关注

[brallow]

老实说也许真正的软件就应该这样写，可是我觉得你的代码就是乱七八糟的
不知道什么是什么，如果是ID，怎么可以又是treeview呢？应该是integer
比较合适一点，我看不太懂.还有不好意思，我以为是delphi的文章
我搞 错了，怪 得我看不懂

[lailarry]

在窗口的Open中应写：
treeview tv_1
tv_1=itv_1
wf_delete_tv( tv_1)
这是错误的申明：
tv_1 tv_1

[lailarry]

????

[lailarry]

变量的申明根本就不正确，应该为：
treeview tv_1
tv_1=itv_1
wf_delete_tv( itv_1 )

[sea_blue_girl]

我正在努力看你们的代码！