13-12-19, 10:44 PM
(13-12-19, 03:03 AM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهسادتي الأكارمالرجاء التوجيه و المساعدة لحل هذه الإشكالية .. بارك الله فيكم و لكم مقدّمًَا ..لديّ كومبوبوكس يتم تعبئته باسم اسم الصنف من جدول الأصناف ..يتم إختيار اسم الصنف من هذا الكومبوبوكس فيتم تعبئة بعض البيانات التي تخص هذا الصنف بالتاكسات بوكس ..إلى هنا الأمور كلّها تمام ..المشكلة سادتي الأكارم ..لما يكون للصنف الواحد عدة نوعيات أو ما يسمى ماركات ..مثلا .. الصنف ( القهوة ) له عدة نوعيات : أرابيسكا - نيسكافيه - بنت الريفبالكومبوبوكس ستظهر كلمة القهوة 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
تحياتي
غير التاكست TxtItemQualite الى كومبوبكس CmbItemQualite
كود :
Private Sub CmbListItems_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbListItems.SelectedIndexChanged
Try
Using da As New SqlDataAdapter("SELECT ITEMS_Qualite From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "'", Conne_2019)
Dim dt As New DataTable
da.Fill(dt)
CmbItemQualite.DataSource = dt
CmbItemQualite.DisplayMember = "ITEMS_Qualite"
End Using
Catch ex As Exception
MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
End Try
End Sub
Private Sub CmbItemQualite_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbItemQualite.SelectedIndexChanged
Try
Dim Query_Pos As String = " SELECT * From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "' And ITEMS_Qualite = '" & CmbItemQualite.Text.Trim & "'"
Using da As New SqlDataAdapter(Query_Pos, Conne_2019)
Dim dt As New DataTable
If da.Fill(dt) > 0 Then
Me.CmbItemUnite.Text = dt.Rows(0).Item("ITEMS_Unite")
Me.TxtItemStock.Text = dt.Rows(0).Item("ITEMS_Stock")
Me.TxtItemPrice.Text = dt.Rows(0).Item("ITEMS_Prix_Vente")
Me.TxtItemBarcode.Text = dt.Rows(0).Item("ITEMS_Barcode")
End If
End Using
Catch ex As Exception
MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
End Try
End Sub