新手的请求建树控件的初级问题

[richgod]

建一数据库demo,一数据表test,字段为:类别,名称 并填数据:类别:饲料 名称:玉米; 类别:饲料 名称:羊草两笔记录
根据test数据表建自由样式的数据窗口d_test
在窗口WIN_1中放一树控件,并仿<PB9快速入门篇>的构造,想在树中显示类别为饲料的名称,不知道哪儿错了,
这是树的构造代码:
DataStore ldt_1
ldt_1 = Create Datastore

ldt_1.DataObject='d_test' ///////////我弄不懂这是做什么用的?

ldt_1.SetTransObject(SQLCA)
ltvi_1.PictureIndex = 2
ltvi_1.SelectedPictureIndex = 2
handle=This.InsertItemLast(0,"饲料",1)
ldt_1.Retrieve('饲料')
ll_Total = ldt_1.RowCount()
If ll_Total>=1 Then
For li_row = 1 To ll_Total
ltvi_1.Data=ldt_1.GetItemNumber(li_row,'名称')
ltvi_1.Label = ldt_1.GetItemString(li_Row,'名称')
This.InsertItemLast(handle,ltvi_1)
End For
End If
以上代码运行后,显示了这种样式,请帮助看一下,多谢了
饲料
玉米
羊草

[richgod]

我写错了,是不显示不了这种样式
饲料
玉米
羊草

[dawugui]

ldt_1.DataObject='d_test' ///////////我弄不懂这是做什么用的?

d_test是个已经做的数据窗口.

将ldt_1的数据源(dateobject)指定为d_test,也就是说和数据库扯上关系.

[richgod]

噢,这样啊,代码哪里有错,可以帮我看看嘛?

[dawugui]

DataStore ldt_1 \\定义数据源
ldt_1 = Create Datastore \\创建数据源

ldt_1.DataObject='d_test' \\将ldt_1的数据源(dateobject)指定为d_test,也就是说和数据库扯上关系.
ldt_1.SetTransObject(SQLCA) \\获取数据
ltvi_1.PictureIndex = 2 \\图标索引为避免
ltvi_1.SelectedPictureIndex = 2
handle=This.InsertItemLast(0,"饲料",1) \\追加饲料
ldt_1.Retrieve('饲料') \\通过数据源查找饲料
ll_Total = ldt_1.RowCount()
If ll_Total> =1 Then
For li_row = 1 To ll_Total \\通过循环将数据插入数
ltvi_1.Data=ldt_1.GetItemNumber(li_row,'名称')
ltvi_1.Label = ldt_1.GetItemString(li_Row,'名称')
This.InsertItemLast(handle,ltvi_1)
End For
End If

[richgod]

太感谢潇洒老乌龟这么快的回复了,

[dawugui]

未发现代码有错,查看数据库是否有数据?

[dawugui]

看红色那句是否会出现?
DataStore ldt_1 \\定义数据源 
ldt_1 = Create Datastore \\创建数据源 

ldt_1.DataObject='d_test' \\将ldt_1的数据源(dateobject)指定为d_test,也就是说和数据库扯上关系. 
ldt_1.SetTransObject(SQLCA) \\获取数据 
ltvi_1.PictureIndex = 2 \\图标索引为避免 
ltvi_1.SelectedPictureIndex = 2 
handle=This.InsertItemLast(0,"饲料",1) \\追加饲料 
ldt_1.Retrieve('饲料') \\通过数据源查找饲料 
ll_Total = ldt_1.RowCount() 
If ll_Total> =1 Then 
   For li_row = 1 To ll_Total \\通过循环将数据插入数 
       ltvi_1.Data=ldt_1.GetItemNumber(li_row,'名称') 
       ltvi_1.Label = ldt_1.GetItemString(li_Row,'名称') 
       This.InsertItemLast(handle,ltvi_1) 
   End For 
else
   messagebox("系统提示！" , "饲料没有下属！")
End If 

[dawugui]

messagebox("系统提示！" , "饲料没有下属！")

不知道这句为何没加红?

[richgod]

是不是配置数据窗口有问题,我做数据窗口时什么都没有设置,

[richgod]

可否帮忙做一个这样的实例,拜托了,

[richgod]

[e-mail]

[dawugui]

那就是数据检索不到.

查查d_test的设计情况.

[richgod]

对,我不知道具体该怎么开,拜托了,

[dawugui]

这就不好说了,这是PB的基本东西,一两句话可说不清楚.

你找本PB的基本书,关于dw的设计,自己看了.

[ribut9225]

应该是数据没有检索到

你可以用
ldt_1.saveas("c:\aa.txt",text!,true)
来检查一下lst_1里面的数据情况

因为datastore是不可视对象，所以没法像DW一样直接查看