And make COMMONTrue if both male and female statuses are in common.
And make ISMALETrue and ISFEMALEFalse for male statuses.
And make ISFEMALE True and ISMALEFalse for female statuses.
**VB Code**
Protected Sub ddlSexType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSexType.SelectedIndexChanged
Try
Dim context As New EGrantsModel.Entities
If (ddlSexType.SelectedValue = "Female") Then
Dim femaleDataSource As Object
femaleDataSource = (From femaleDS In context.CITIZENSTATUS _
Where femaleDS.ISFEMALE = "1" And femaleDS.ISMALE = "0" AndAlso femaleDS.COMMON = "1"
Select femaleDS)
ddlCitizenStatus.DataSource = femaleDataSource
ddlCitizenStatus.DataValueField = "CITIZENSTATUSID"
ddlCitizenStatus.DataTextField = "CITIZENSTATUS"
ddlCitizenStatus.DataBind()
ElseIf (ddlSexType.SelectedValue = "Male") Then
Dim maleDataSource As Object
maleDataSource = (From femaleDS In context.CITIZENSTATUS _
Where femaleDS.ISFEMALE = "0" And femaleDS.ISMALE = "1" AndAlso femaleDS.COMMON = "1"
Select femaleDS)
ddlCitizenStatus.DataSource = maleDataSource
ddlCitizenStatus.DataValueField = "CITIZENSTATUSID"
ddlCitizenStatus.DataTextField = "CITIZENSTATUS"
ddlCitizenStatus.DataBind()
End If
Catch ex As Exception
callErrorPage(ex.Message, ex.InnerException)
End Try
End Sub
I am really new to VB, so if someone think that this a lengthy approach then kindly update me for a better approach.
Marked as answer by aazizmajid on Jul 30, 2012 01:44 AM
aazizmajid
0 Points
3 Posts
Re: Drop-Down Cascade Issue: How to cascade two drop down
Jul 30, 2012 01:44 AM|LINK
This is how I solved my problem
I just add three fields in my table
1- ISMALE 2- ISFEMALE 3- COMMONAnd make COMMON True if both male and female statuses are in common.
And make ISMALE True and ISFEMALE False for male statuses.
And make ISFEMALE True and ISMALE False for female statuses.
**VB Code**
Protected Sub ddlSexType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSexType.SelectedIndexChanged Try Dim context As New EGrantsModel.Entities If (ddlSexType.SelectedValue = "Female") Then Dim femaleDataSource As Object femaleDataSource = (From femaleDS In context.CITIZENSTATUS _ Where femaleDS.ISFEMALE = "1" And femaleDS.ISMALE = "0" AndAlso femaleDS.COMMON = "1" Select femaleDS) ddlCitizenStatus.DataSource = femaleDataSource ddlCitizenStatus.DataValueField = "CITIZENSTATUSID" ddlCitizenStatus.DataTextField = "CITIZENSTATUS" ddlCitizenStatus.DataBind() ElseIf (ddlSexType.SelectedValue = "Male") Then Dim maleDataSource As Object maleDataSource = (From femaleDS In context.CITIZENSTATUS _ Where femaleDS.ISFEMALE = "0" And femaleDS.ISMALE = "1" AndAlso femaleDS.COMMON = "1" Select femaleDS) ddlCitizenStatus.DataSource = maleDataSource ddlCitizenStatus.DataValueField = "CITIZENSTATUSID" ddlCitizenStatus.DataTextField = "CITIZENSTATUS" ddlCitizenStatus.DataBind() End If Catch ex As Exception callErrorPage(ex.Message, ex.InnerException) End Try End SubI am really new to VB, so if someone think that this a lengthy approach then kindly update me for a better approach.