منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله تعالى و بركاته

ممكن تساعدوني بارك الله فيكم ، وقعت في مشكلة و هي انني عندما اضغط على الخلية التي تحتوي كمبوبوكس لا تظهر الوحدات مع انو كل المسميات صحيحة

الكود هو :

كود :

Sub GetItemsUnit(ItemCode As String)

        Dim Adp As New SqlClient.SqlDataAdapter("SELECT * From Items Where ItemCode = N'" & ItemCode & "'", SQLConn)

        Dim Ds As New DataSet

        Adp.Fill(Ds)

        Dim Dt = Ds.Tables(0)

        If Dt.Rows.Count > 0 Then

            Dim DgvCC As DataGridViewComboBoxCell

            DgvCC = DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2)

            DgvCC.Items.Add(Dt.Rows(0).Item("FirstUnit"))

            If Dt.Rows(0).Item("SecoundUnit").ToString <> "" Then DgvCC.Items.Add(Dt.Rows(0).Item("SecoundUnit"))

            If Dt.Rows(0).Item("ThirdUnit").ToString <> "" Then DgvCC.Items.Add(Dt.Rows(0).Item("ThirdUnit"))

            DataGridView1.ClearSelection()

            DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(2).Selected = True

        End If

    End Sub

التوضيح بالصور :

ساعدوني بارك الله فيكم

وعليكم السلام...
إستخدم هذا الكود فهو يلبي المطلوب, وانظر الي النتيجة في المرفقات,
تفضل:

كود :

 Dim dd As New DataGridViewComboBoxColumn

        datagridview1.Columns.Add(dd)

        dd.HeaderText = "فصيلة الدم"

        On Error Resume Next

        Dim dsp As New DataTable

        dsp.Clear()

        DataAdapter = New OleDbDataAdapter("Select الفصيلة FROM t1 Group By الفصيلة", con)

        DataAdapter.Fill(dsp)

        If dsp.Rows.Count > 0 Then

            dd.DataSource = dsp

            dd.DisplayMember = "الفصيلة"

        Else

            dd.DataSource = Nothing

        End If

(29-10-20, 03:37 PM)اسامه الهرماوي كتب : [ -> ]وعليكم السلام...
إستخدم هذا الكود فهو يلبي المطلوب, وانظر الي النتيجة في المرفقات,
تفضل:

كود :

Dim dd As New DataGridViewComboBoxColumn datagridview1.Columns.Add(dd) dd.HeaderText = "فصيلة الدم" On Error Resume Next Dim dsp As New DataTable dsp.Clear() DataAdapter = New OleDbDataAdapter("Select الفصيلة FROM t1 Group By الفصيلة", con) DataAdapter.Fill(dsp) If dsp.Rows.Count > 0 Then dd.DataSource = dsp dd.DisplayMember = "الفصيلة" Else dd.DataSource = Nothing End If

مشكور أخي ، بارك الله فيك

(29-10-20, 02:00 PM)sofiane-phy كتب : [ -> ]

ما فائدة وجود اعمدة اسماء الوحدات FirstUnit وSecoundUnit وThirdUnit في نفس جدول المواد؟

(30-10-20, 12:46 AM)lafi كتب : [ -> ]
(29-10-20, 02:00 PM)sofiane-phy كتب : [ -> ]

ما فائدة وجود اعمدة اسماء الوحدات FirstUnit وSecoundUnit وThirdUnit في نفس جدول المواد

ممكن تفهم المقصود من دورة الاخ عثمان فيها فوائد كثيرة