001.Private Sub Call_province()
002.
003. Try
004.
005.
006.
007.
008. Dim sqlprovince As String = ""
009. sqlprovince = "SELECT * FROM province"
010. sqlprovince &= " ORDER BY PROVINCEID"
011. da = New SqlDataAdapter(sqlprovince, Conn)
012. da.Fill(ds, "province")
013.
014. If ds.Tables("province").Rows.Count <> 0 Then
015. With cboPROVINCE_TH
016. .DataSource = ds.Tables("province")
017. .DisplayMember = "PROVINCE_TH"
018. .ValueMember = "PROVINCEID"
019. .DataBindings.Clear()
020. .DataBindings.Add("SelectedValue", ds, "organization.PROVINCEID")
021. End With
022. End If
023. Catch ex As Exception
024. cboPROVINCE_TH.Text = Nothing
025. End Try
026.
027. End Sub
028.
029. Private Sub call_amphur()
030. ds.Tables.Clear()
031. Try
032. Dim sqldistrict As String = ""
033. sqldistrict = "SELECT * FROM district"
034. If cboPROVINCE_TH.ValueMember = "" Then
035. Exit Sub
036. Else
037. sqldistrict &= " where PROVINCEID = '" & CStr(cboPROVINCE_TH.SelectedValue) & "'"
038.
039. sqldistrict &= " ORDER BY DISTRICTID"
040. da = New SqlDataAdapter(sqldistrict, Conn)
041. da.Fill(ds, "district")
042. If ds.Tables("district").Rows.Count <> 0 Then
043. With cboDISTRICT_TH
044. .DataSource = ds.Tables("district")
045. .DisplayMember = "DISTRICT_TH"
046. .ValueMember = "DISTRICTID"
047. .DataBindings.Clear()
048. .DataBindings.Add("SelectedValue", ds, "organization.DISTRICTID")
049. End With
050. End If
051. End If
052.
053. Catch ex As Exception
054.
055. cboDISTRICT_TH.Text = Nothing
056. End Try
057.
058.
059.
060. End Sub
061.
062. Private Sub call_tambon()
063. ds.Tables.Clear()
064. Try
065. Dim sqltambon As String = ""
066. sqltambon = "SELECT * FROM tambon"
067. If cboDISTRICT_TH.ValueMember = "" Then
068. Exit Sub
069. Else
070. sqltambon &= " where DISTRICTID = '" & CStr(cboDISTRICT_TH.SelectedValue) & "'"
071.
072. sqltambon &= " ORDER BY TAMBONID"
073. da = New SqlDataAdapter(sqltambon, Conn)
074. da.Fill(ds, "tambon")
075. If ds.Tables("tambon").Rows.Count <> 0 Then
076. With cboTAMBON_TH
077. .DataSource = ds.Tables("tambon")
078. .DisplayMember = "TAMBON_TH"
079. .ValueMember = "TAMBONID"
080.
081.
082. .DataBindings.Clear()
083.
084.
085.
086.
087. .DataBindings.Add("SelectedValue", ds, "organization.TAMBONID")
088. End With
089. End If
090. End If
091.
092.
093.
094. Catch ex As Exception
095.
096. cboTAMBON_TH.Text = Nothing
097. End Try
098.
099.
100.
101.
102.
103. End Sub
104.
105.
106.
107.
108.
109. Private Sub cboPROVINCE_TH_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPROVINCE_TH.SelectedValueChanged
110. call_amphur()
111. End Sub
112.
113. Private Sub cboDISTRICT_TH_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDISTRICT_TH.SelectedValueChanged
114. call_tambon()
115. End Sub
