plantypechange.vbs

物业管理和办公自动化系统

Sub type_Onchange()
	dim temp
	temp = document.all.frmSearchPlan.type.value
	select case temp
	case 1'月度
		document.all.frmSearchPlan.of_season.disabled =	true
		document.all.frmSearchPlan.of_month.disabled =	false
	case 2'季度
		document.all.frmSearchPlan.of_month.disabled = true
		document.all.frmSearchPlan.of_season.disabled =	false
	case 3'年度
		document.all.frmSearchPlan.of_season.disabled =	true
		document.all.frmSearchPlan.of_month.disabled = true
	end select
End Sub