尝试从响应窗口的父窗口获取变量(两个窗口都是继承的 - 我没有源代码)。我能够通过所有父变量,对象,控件等循环,但我似乎无法读取任何变量。此代码用于" ok event"。感谢任何帮助。
window lw_active, w_parentwindow
string ls_winname, ls_libname, ls_wintitle
ClassDefinition cd_windef
w_parentwindow = this.ParentWindow()
lw_active = w_parentwindow.GetFirstSheet()
if isvalid(lw_active) = True then
ls_winname = lw_active.classname()
cd_windef = FindClassDefinition(ls_winname)
ls_libname = cd_windef.LibraryName
ls_wintitle = lw_active.title
messagebox(ls_winname, ls_libname+'~r~n~r~n'+ls_wintitle, Information!)
string s, lineend
integer li
VariableDefinition vard
lineend = "~r~n"
FOR li = 1 to UpperBound(cd_windef.VariableList)
vard = cd_windef.VariableList[li]
s = s + vard.Name + lineend
NEXT
messagebox('s',s)
end if
答案 0 :(得分:1)