说明: Ls_ObjectList中获得的是一个所有datawindow中的所有控件名称的字符串,以Tab分隔
ObjectInDw[]存放提取出的单独的控件名,类型为string
Ls_ObjectList
=
dw.Object.DataWindow.Objects
//
获取数据窗体的所有控件名称的字符串,以Tab间隔。
x = 0
If Len (Ls_ObjectList) > 0 then
Li_Pointer = Pos(Ls_ObjectList, " ~t " )
Do While Li_Pointer > 0
x += 1
ObjectInDw[x] = Trim ( Left (Ls_ObjectList, Li_Pointer - 1 ))
Ls_ObjectList = Trim ( Right (Ls_ObjectList, Len (Ls_ObjectList) - Li_Pointer))
Li_Pointer = Pos(Ls_ObjectList, " ~t " )
Loop
x += 1
ObjectInDw[x] = Ls_ObjectList
end if
x = 0
If Len (Ls_ObjectList) > 0 then
Li_Pointer = Pos(Ls_ObjectList, " ~t " )
Do While Li_Pointer > 0
x += 1
ObjectInDw[x] = Trim ( Left (Ls_ObjectList, Li_Pointer - 1 ))
Ls_ObjectList = Trim ( Right (Ls_ObjectList, Len (Ls_ObjectList) - Li_Pointer))
Li_Pointer = Pos(Ls_ObjectList, " ~t " )
Loop
x += 1
ObjectInDw[x] = Ls_ObjectList
end if
查看对应的属性可以通过describe函数
dw_1.describe(ObjectInDw[i]
+
"
.type
"
)