怎样获得数据窗口的所有text对象的名字和它的text属性

[lekey]

[goalitaly]

string ls_ObjString, ls_ObjHolder, as_objlist[]
integer li_Start=1, li_Tab, li_Count=0

if dw_1.type="text" then
ls_ObjString = dw_1.Describe("Datawindow.Objects")

li_Tab = Pos(ls_ObjString, "~t", li_Start)

Do While li_Tab > 0
li_Count ++
as_ObjList[li_Count] = ls_ObjHolder

ls_ObjHolder = Mid(ls_ObjString, li_Start, (li_Tab - li_Start))
li_Start = li_Tab + 1
li_Tab = Pos(ls_ObjString, "~t", li_Start)
Loop
ls_ObjHolder = Mid(ls_ObjString, li_Start, Len(ls_ObjString))
li_Count ++
as_ObjList[li_Count] = ls_ObjHolder
//
looklook

[PBVC]

收藏

[goalitaly]

呵呵，有点小问题：
ls_ObjString = this.Describe("Datawindow.Objects")

li_Tab = Pos(ls_ObjString, "~t", li_Start)

Do While li_Tab > 0
li_Count ++
as_ObjList[li_Count] = ls_ObjHolder

ls_ObjHolder = Mid(ls_ObjString, li_Start, (li_Tab - li_Start))
li_Start = li_Tab + 1
li_Tab = Pos(ls_ObjString, "~t", li_Start)
Loop
ls_ObjHolder = Mid(ls_ObjString, li_Start, Len(ls_ObjString))
li_Count ++
as_ObjList[li_Count] = ls_ObjHolder

[lekey]

你答的很好，再帮助我解决一个问题，怎样获得数据窗口里的ddlb的显示值，再追加分。