اشکال در فرخوانی اطلاعات از دیتابیس در کمبوباکس

[swallow.pa]

سلام به همه
من توی یک فرم دو تا کمبو باکس دارم اولی عنوان بانکه و دومی عنوان شعبه بانکه
کمبو اولی رو اینطوری فراخوانی می کنم

Private Sub Load_CboBank()
Using Da As New SqlClient.SqlDataAdapter("SELECT * FROM Bank", Cn)
If Cn.State = ConnectionState.Closed Then Cn.Open()
DsMbsHesab.Bank.Clear()
Da.Fill(DsMbsHesab.Bank)
Cn.Close()
End Using
End Sub

دومی رو هم اینجوری

Private Sub cboBank_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboBank.SelectedIndexChanged
Using Da As New SqlClient.SqlDataAdapter(String.Format("SELECT * FROM BankBranch WHERE BankRef={0}", cboBank.SelectedValue), Cn)
DsMbsHesab.BankBranch.Clear()
If Cn.State = ConnectionState.Closed Then Cn.Open()
Da.Fill(DsMbsHesab.BankBranch)
Cn.Close()
End Using
End Sub

حالا مشکل من اینه که کد کمبو دومی که مربوط به شعبه می باشد با لود شدن فرم اجرا نمیشه
چی کار کنم که با لود شدن فرم دومی هم اجرا بشه
ممنون

[hakim22]

دوست عزیز کد دومی درون رویداد selectedindexchanged نوشته شده ، یعنی وقتی از آیتم جدیدی انتخاب شده اجرا میشه.
تمام محتویات این sub رو ببرید و زیر End using در کد بالا (که احتمالا برای Load فرم هست) پیست کنید !

[alicomputer]

ComboBox1.Items.Clear()
Dim dr As SqlDataReader
Dim cm As SqlCommand
Dim Sql As String

Sql = "select DISTINCT semat from Tbl_Bank"
cm = New SqlCommand(Sql, SqlCon)
dr = cm.ExecuteReader()
Do While dr.Read
ComboBox1.Items.Add(dr("name"))

Loop
dr.Close()

If SqlCon.State = ConnectionState.Open Then
SqlCon.Close()
End If

[swallow.pa]

دووست من من می خوام در هنگام لود فرم کد دومی اجرا بشه

[rahime]

خب شما می تونی کمبو دوم رو هم با دستور select * from در هنگام لود شدن نمایش بدی
بعد که selectedIndex_change شد اون کدی که خودتون برای کمبو دوم نوشتن اجرا می شه و مشکلی هم پیش نمیاد

یا می تونین از همین کدی که برای کمبو دوم نوشتین استفاده کنید و به طور پیش فرض برای بانک اولتون استفاده کنین
Using Da As New SqlClient.SqlDataAdapter("SELECT * FROM BankBranch WHERE BankRef= 1"), Cn