مشکل در خواندن اطلاعات

[khomar]

سلام
در فرم لود قرار هست از دوتا تیبل مختلف اطلاعات رو بخونم
و هر تیبل رو به کامبو مختلف قرار بدم من کد رو نوشتم جواب هم می ده اما مشکل اینجاست
که در کامبو دومی به تعداد مقدارهای
کامبو اولی فاصله می ندازه
مشکل از کجاست؟
سعی کرم از
dt.clear
استفاده کنم چون قبلا از
dt.clear
جواب گرفته بودم اما اینجا کار رو بدتر می کنه
یعنی دیگه اطلاعات تیبل اول در کامبو اول قرار نمی گیره
ممنون می شم اگه کسی بگه مشکل از کجاست؟

Dim cmd As New OleDb.OleDbCommand

        Dim con As New OleDb.OleDbConnection

        Dim da As New OleDb.OleDbDataAdapter(cmd)

        Dim dt As New DataTable

        Dim str As String

        Dim connectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\mahi\mahi\bin\mahi.mdb;"

        str = "select major from major"

        Try

            con.ConnectionString = connectionString

            cmd.Connection = con

            con.Open()

            cmd.CommandText = str

            da.Fill(dt)

            con.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    

        ComboBox1.DataSource = dt

        ComboBox1.DisplayMember = "major"

        'dt.Clear()



        str = "select type_cd from type"

        Try

            con.Open()

            cmd.CommandText = str

            da.Fill(dt)

            con.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try



        ComboBox2.DataSource = dt

        ComboBox2.DisplayMember = "type_cd"

[visual_sadegh]

دو راه برای رفع این اشکال هست
1- برای هر کامبو یک دیتا تیبل جداگانه تعریف کن
2- با استفاده از حلقه و دیتا ریدر این مشکلو می تونی رفع کنی.
فکر میکنم راه اولی برای برنامه شما بهتر باشه

[ghafoori]

دوست عزیز شما باید نوع dt را به دیتاست تغییر بدید شما نمی توانید همزمان دو کمبوباکس را به یک جدول که دوبار پرشده متصل کنید

[khomar]

راستش من اول می خواستم دو تا دیتا تیبل تعریف کنم اما اومدم همین جا سوال کردم دوستان گفتند لازم نیست دو سری متغیر استفاده کنی اتفاقا سری قبل هم اشکالم در کامبو ها بود که اونجوری جواب دادند.مرسی

[visual_sadegh]

راستش من اول می خواستم دو تا دیتا تیبل تعریف کنم اما اومدم همین جا سوال کردم دوستان گفتند لازم نیست دو سری متغیر استفاده کنی اتفاقا سری قبل هم اشکالم در کامبو ها بود که اونجوری جواب دادند.مرسی

درسته می شه در این صورت باید با استفاده از حلقه کامبوهاتو پرکنی

[reza6384]

سلام. من توی برنامه ام به این خیلی احتیاج داشتم. واسه همین یه متد نوشتم که با رویداد OnClick مربوط به ComboBox فراخوانی بشه، چون مثلا وقتی توی یک فرم یک کمبو انتخاب تولیدکننده داشتم کنارش یک دکمه New گذاشته بودم و بعد از بسته شدن فرم تولیدکننده جدید باید اسم تولید کننده توی لیست می بود.
متد اینه :

Sub FillComboBox(ByRef Combo As ComboBox, ByVal TableName AsString, ByVal Field AsString)

Dim Conn As String = "DataSoruce=.;InitialCatalog=Northwind;IntegratedS  ecurity=True"

Conn.Open()

Dim DS AsNew DataSet

Dim Result AsNew DataTable("Result")

Dim CMD AsString = "Select " & Field & " From " & TableName & " Order By " & Field

Dim SDA As New SqlDataAdapter(CMD,Conn)

SDA.Fill(DS,"Result")

Dim Counter AsInteger = Result.Rows.Count - 1 'Zero Based Index

Combo.Items.Clear()

 

For i  As Integer = 0 To Counter

Combo.Items.Add(Result.Rows(i).Item(0))

Next

EndSub

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

PrivateSub cmoProducer_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles cmoUserName.Click

FillComboBox(cmoProducers, "Producers", "Name")

EndSub