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

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

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

回复赞

十日谈 (share) 我一直认为自己是“初级”前端开发工程师，一方面我入道尚浅，只有短短几年，另一方面我自知对技术的钻研并不深入，可能是由于环境的原因，当然最重要的是，我幸运的参与到互联网崛起的浪潮之巅。时势造...

ASP.NET MVC vs webform 然而事实上并非如此，MVC 与其说比 ASP.NET 传统的开发模式有优势，是因为它的门槛隔绝了初级的开发者，那些优势无不来自标准化、符合约定和敏捷的流程，而并不是 MVC 框架本身——让新手使用 MVC 只会带来灾难。...