获得当前打开的窗口标题

获得当前打开的窗口标题

按钮clicked事件

boolean bValid
window wSheet
lb_sheets.Reset()
wSheet = Parent.GetFirstSheet()
IF IsValid(wSheet) THEN
 lb_sheets.AddItem(wSheet.Title)
 DO
  wSheet = Parent.GetNextSheet(wSheet)
  bValid = IsValid (wSheet)
  IF bValid THEN lb_sheets.AddItem(wSheet.Title)
 LOOP WHILE bValid
END IF

建立ddlb名称为lb_sheets