تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عرض الوحدة من فظلكم
#1
السلام عليكم ورحمة الله تعالى و بركاته

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

الكود هو :
كود :
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

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







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

الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
إستخدم هذا الكود فهو يلبي المطلوب, وانظر الي النتيجة في المرفقات,
تفضل:
كود :
 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 , عبد العزيز البسكري , lafi
#3
(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
مشكور أخي ، بارك الله فيك
------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة:
#4
(29-10-20, 02:00 PM)sofiane-phy كتب :  

ما فائدة وجود اعمدة اسماء الوحدات FirstUnit وSecoundUnit وThirdUnit في نفس جدول المواد؟
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#5
(30-10-20, 12:46 AM)lafi كتب :
(29-10-20, 02:00 PM)sofiane-phy كتب :  

ما فائدة وجود اعمدة اسماء الوحدات FirstUnit وSecoundUnit وThirdUnit في نفس جدول المواد
ممكن تفهم المقصود من دورة الاخ عثمان فيها فوائد كثيرة
------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة: lafi



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم