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

lekey 2001-11-27 06:48:59
...全文
64 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lekey 2001-11-28
  • 打赏
  • 举报
回复
你答的很好,再帮助我解决一个问题,怎样获得数据窗口里的ddlb的显示值,再追加分。
goalitaly 2001-11-27
  • 打赏
  • 举报
回复
呵呵,有点小问题:
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
PBVC 2001-11-27
  • 打赏
  • 举报
回复
收藏
goalitaly 2001-11-27
  • 打赏
  • 举报
回复
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

1,081

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧