[عبد العزيز البسكري]

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

سادتي الأكارم

الرجاء التوجيه و المساعدة لحل هذه الإشكالية .. بارك الله فيكم و لكم مقدّمًَا ..

لديّ كومبوبوكس يتم تعبئته باسم اسم الصنف من جدول الأصناف ..

يتم إختيار اسم الصنف من هذا الكومبوبوكس فيتم تعبئة بعض البيانات التي تخص هذا الصنف بالتاكسات بوكس ..

إلى هنا الأمور كلّها تمام ..

المشكلة سادتي الأكارم ..

لما يكون للصنف الواحد عدة نوعيات أو ما يسمى ماركات ..

مثلا .. الصنف ( القهوة ) له عدة نوعيات : أرابيسكا - نيسكافيه - بنت الريف

بالكومبوبوكس ستظهر كلمة القهوة 3 مرات لأني تعمدت عدم إستعمال عبارة DISTINCT

لكن البيانات بالتاكسات بوكس تبقى دائما ثابته للصنف القهوة النوعية الأولى فقط

لو كانت :

أرابيسكا = 125.698

نيسكافيه = 145.698

بنت الريف = 168.954

لما أختار القهوة من الكومبوبوكس تظهر بالتاكسات بكس فقط : أرابيسكا و 125.698

حتى لو إخترت من الكومبوبكس القهوة الثانية فلا تتغير البيانات

بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء

الكود المستعمل :

كود :

Private Sub CmbListItems_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbListItems.SelectedIndexChanged
       Try
           Dim Cmd_Pos As SqlCommand = New SqlCommand()
           Dim Reader_Pos As SqlDataReader = Nothing
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
           Conne_2019.Open()
           Dim Query_Pos As String = " SELECT * From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "'"
           Cmd_Pos = New SqlCommand(Query_Pos, Conne_2019)
           Reader_Pos = Cmd_Pos.ExecuteReader()
           While Reader_Pos.Read
               If Reader_Pos IsNot Nothing Then
                   Me.TxtItemName.Text = Reader_Pos.Item("ITEMS_Name")
                   Me.TxtItemQualite.Text = Reader_Pos.Item("ITEMS_Qualite")
                   Me.CmbItemUnite.Text = Reader_Pos.Item("ITEMS_Unite")
                   Me.TxtItemStock.Text = Reader_Pos.Item("ITEMS_Stock")
                   Me.TxtItemPrice.Text = Reader_Pos.Item("ITEMS_Prix_Vente")
                   Me.TxtItemBarcode.Text = Reader_Pos.Item("ITEMS_Barcode")
               End If
           End While
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
       Catch ex As Exception
           MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
       End Try
   End Sub

تحياتي