'
' Generic function for populating the dropdown list.
'
Public Function FillParameterDDL(ByRef ddList As DropDownList, _
ByVal ddListName As String, _
ByVal parameterValue As String, _
ByVal currentValue As String) As Boolean
Dim dataRS As DataSet
Dim insertEmptyOption As Boolean
Select Case ddListName
Case "Evaluation Month"
dataRS = DA_Assessment.GetEvaluationMonthList(parameterValue)
insertEmptyOption = True
Case "Support Area"
Dim periodId As Integer = Split(parameterValue, "_")(0)
Dim evaluationMonth As Integer = Split(parameterValue, "_")(1)
dataRS = DA_Assessment.GetSupportAreaList(CInt(periodId), CInt(evaluationMonth))
insertEmptyOption = True
Case "Response"
dataRS = DA_Assessment.GetResponseList(CInt(parameterValue))
insertEmptyOption = False
End Select
|