_svydes_dlg.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 26 行

*! version 1.0.0  18mar2005
program _svydes_dlg
	// NOTE: this is an ado subroutine for svydes.dlg
	local max : char _dta[_svy_stages]
	capture confirm integer number `max'
	if c(rc) {
		local max 1
	}
	else {
		local su : char _dta[_svy_su`max']
		if `"`su'"' == "_n" {
			local --max
		}
		if `max' < 1 {
			local max 1
		}
	}
	if `max' > 1 {
		.svydes_dlg.main.sp_stage.setrange 1 `max'
	}
	else {
		.svydes_dlg.main.tx_stage.disable
		.svydes_dlg.main.sp_stage.disable
	}
end