[sofiane-phy]

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

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

الكود هو :

كود :

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

[sofiane-phy]

(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

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

[lafi]

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

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

[sofiane-phy]

(30-10-20, 12:46 AM)lafi كتب :

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

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

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