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

richgod 2008-02-22 10:49:53
建一数据库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
以上代码运行后,显示了这种样式,请帮助看一下,多谢了
饲料
玉米
羊草
...全文
54 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ribut9225 2008-02-23
应该是数据没有检索到

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

因为datastore是不可视对象,所以没法像DW一样直接查看
回复
dawugui 2008-02-22
这就不好说了,这是PB的基本东西,一两句话可说不清楚.

你找本PB的基本书,关于dw的设计,自己看了.
回复
richgod 2008-02-22
对,我不知道具体该怎么开,拜托了,
回复
dawugui 2008-02-22
那就是数据检索不到.

查查d_test的设计情况.
回复
richgod 2008-02-22
renxinwen@hotmail.com
回复
richgod 2008-02-22
可否帮忙做一个这样的实例,拜托了,
回复
richgod 2008-02-22
是不是配置数据窗口有问题,我做数据窗口时什么都没有设置,
回复
dawugui 2008-02-22
messagebox("系统提示!" , "饲料没有下属!")

不知道这句为何没加红?
回复
dawugui 2008-02-22

看红色那句是否会出现?
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 2008-02-22
未发现代码有错,查看数据库是否有数据?
回复
richgod 2008-02-22
太感谢潇洒老乌龟这么快的回复了,
回复
dawugui 2008-02-22
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 2008-02-22
噢,这样啊,代码哪里有错,可以帮我看看嘛?
回复
dawugui 2008-02-22
ldt_1.DataObject='d_test' ///////////我弄不懂这是做什么用的?

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

将ldt_1的数据源(dateobject)指定为d_test,也就是说和数据库扯上关系.
回复
richgod 2008-02-22
我写错了,是不显示不了这种样式
饲料
玉米
羊草
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

868

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2008-02-22 10:49
社区公告
暂无公告