 |
| |
รบกวนดูโค้ดเกี่ยวกับ DropdownList + vb.net 2010 เลือกจังหวัด อำเภอ |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
ImProvince()
End Sub
Sub ImProvince()
If IsPostBack = False Then
dtAdapter = New SqlDataAdapter("select * from Add_Provinces ORDER BY PROVINCE_NAME", objConn)
dtAdapter.Fill(ds, "Add_Provinces")
DDLProvinces.DataSource = ds.Tables("Add_Provinces")
DDLProvinces.DataTextField = "PROVINCE_NAME"
DDLProvinces.DataValueField = "PROVINCE_ID"
DataBind()
DDLAmphur.Items.Clear()
ds = New DataSet
dtAdapter = New SqlDataAdapter("select * from Add_Amphur where PROVINCE_ID='" & DDLProvinces.SelectedValue.ToString & "' ", objConn)
dtAdapter.Fill(ds, "Add_Amphur")
For i = 0 To ds.Tables(0).Rows.Count() - 1
DDLAmphur.DataSource = ds.Tables("Add_Amphur")
DDLAmphur.DataTextField = "AMPHUR_NAME"
DDLAmphur.DataValueField = "AMPHUR_ID"
DataBind()
Next
objConn.Close()
End If
End Sub
Protected Sub DDLProvinces_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DDLProvinces.SelectedIndexChanged
If objConn.State = ConnectionState.Closed Then
objConn.Open()
End If
DDLAmphur.Items.Clear()
ds.Clear()
dtAdapter = New SqlDataAdapter("SELECT * from Add_Amphur where PROVINCE_ID='" & DDLProvinces.SelectedValue.ToString & "' ", objConn)
dtAdapter.Fill(ds, "Add_Amphur")
For i = 0 To ds.Tables(0).Rows.Count() - 1
DDLAmphur.DataSource = ds.Tables("Add_Amphur")
DDLAmphur.DataTextField = "AMPHUR_NAME"
DDLAmphur.DataValueField = "AMPHUR_ID"
DataBind()
Next
objConn.Close()
End Sub
// ข้อมูลจังหวัดขึ้นค่ะ แต่พอเลือกจังหวัดแล้ว อำเภอไม่เปลี่ยนตาม ยังทำไม่ได้เลยรบกวนแนะนำด้วยนะค่ะ
Tag : .NET, Ms SQL Server 2005, VB.NET, VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2012-12-11 10:52:15 |
By :
pha_story |
View :
2734 |
Reply :
8 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
set autopostback DDLProvinces เป็น True หรือยังครับ
|
| |
|
|
| |
| Date :
2012-12-11 11:20:55 |
By :
Niratiam |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณคุณ mr.win และ Niratiam มากนะค่ะ ทำงานได้เรียบร้อยแล้วค่ะ เอา .ToString ออกตามที่คุณ mr.win ได้ตั้งคำถามไว้และแก้ไข set autopostback DDLProvinces เป็น True ค่ะ
|
| |
|
|
| |
| Date :
2012-12-12 09:31:17 |
By :
pha_story |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code VB.NET 2010 ค่ะ ------------------------------------>
Code (VB.NET)
Sub ImProvince()
dtAdapter = New SqlDataAdapter("select * from Add_Provinces ORDER BY PROVINCE_NAME", objConn)
dtAdapter.Fill(ds, "Add_Provinces")
DDLProvinces.DataSource = ds.Tables("Add_Provinces")
DDLProvinces.DataTextField = "PROVINCE_NAME"
DDLProvinces.DataValueField = "PROVINCE_ID"
DataBind()
End Sub
Sub ImAmphur()
If DDLProvinces.AutoPostBack = True Then
dtAdapter = New SqlDataAdapter("select AMPHUR_NAME,AMPHUR_ID from Add_Amphur where PROVINCE_ID='" & DDLProvinces.SelectedValue & "' ", objConn)
dtAdapter.Fill(ds, "Add_Amphur")
For i = 0 To ds.Tables(0).Rows.Count() - 1
DDLAmphur.DataSource = ds.Tables("Add_Amphur")
DDLAmphur.DataTextField = "AMPHUR_NAME"
DDLAmphur.DataValueField = "AMPHUR_ID"
DataBind()
Next
End If
End Sub
Protected Sub DDLProvinces_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DDLProvinces.SelectedIndexChanged
ImAmphur()
End Sub
|
ประวัติการแก้ไข
2012-12-12 09:34:35
2012-12-12 09:36:41
| |
|
|
| |
| Date :
2012-12-12 09:32:53 |
By :
pha_story |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 Good Jobs
|
| |
|
|
| |
| Date :
2012-12-12 09:54:44 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เก่งจัง
|
| |
|
|
| |
| Date :
2012-12-12 11:15:25 |
By :
nt |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าเขียนในหน้าอัพเดท จะเรียกข้อมูลที่อยู่ใน Drop down มาโชว์
ต้องทำยังไงคะ คือลองทำแล้ว มาเฉพาะ Drop down ที่เป็นจังหวัด Drop down อำเภอ ค่าไม่โชว์คะ
|
| |
|
|
| |
| Date :
2015-11-07 10:14:31 |
By :
fah |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 04
Quote:
