منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في عرض الوحدة من فظلكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في عرض الوحدة من فظلكم (/showthread.php?tid=36797)

مساعدة في عرض الوحدة من فظلكم - sofiane-phy - 29-10-20

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

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

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

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







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

RE: مساعدة في عرض الوحدة من فظلكم - اسامه الهرماوي - 29-10-20

وعليكم السلام...
إستخدم هذا الكود فهو يلبي المطلوب, وانظر الي النتيجة في المرفقات,
تفضل:
كود :
 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


RE: مساعدة في عرض الوحدة من فظلكم - sofiane-phy - 29-10-20

(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
مشكور أخي ، بارك الله فيك

RE: مساعدة في عرض الوحدة من فظلكم - lafi - 30-10-20

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

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

RE: مساعدة في عرض الوحدة من فظلكم - sofiane-phy - 30-10-20

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

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