منتدى فيجوال بيسك لكل العرب

نسخة كاملة : إستعراض سجلات على أداة الجريد كنترول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السّلام عليكم و رحمة الله و بركاته
أساتذتي الأفاضل .. لو ممكن المساعدة بتحويل هذه الجزئية إلى تقنية الديف إكسبرس
تابعت الكثير من الشروحات لكن أغلبها بالسي شارب و لم تفِ بالغرض
كود :
         DA = New OleDb.OleDbDataAdapter("SELECT * From TBL_RETOUR_VENTE_DETAILS Where RETOUR_VENTE_DETAILS_Invoices_Code = '" & Code_Show & "'", Conne_2020)
   Dim DS As New DataSet
           DS = New DataSet
           DA.Fill(DS)
           DT = DS.Tables(0)
           For I = 0 To DT.Rows.Count - 1
               DataGridView1.Rows.Add()

   'GridView2.AddNewRow()
   'GridView2.GetDataRow(I).Item(0) = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Code")
   'GridView2.GetDataRow(I).Item(1) = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Name")


DataGridView1.Rows(I).Cells(0).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Code")
               DataGridView1.Rows(I).Cells(1).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Name")
               DataGridView1.Rows(I).Cells(2).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Unite")
               DataGridView1.Rows(I).Cells(3).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Price")
               DataGridView1.Rows(I).Cells(4).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Quantite")
               DataGridView1.Rows(I).Cells(5).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Discound")
               DataGridView1.Rows(I).Cells(6).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Total")
Next

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الغالي
عن طريق الاستعلام فكرة رائعة بكل صدق
تؤدّي و تفي بالغرض طولاً و عرضًا
و عملت شيء شبيه بهذا و مشى الحال و الحمد لله

كود :
   Private Sub RepositoryItemButtonEdit1_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit1.Click

       If GridView1.RowCount = Nothing Then Return

       'Dim selectedRows() As Integer = GridView1.GetSelectedRows()
       'For Each rowHandle As Integer In selectedRows
       'If rowHandle >= 0 Then
       'FrmRetourFactureVente.GridControl1.DataSource = Nothing
       'FrmRetourFactureVente.GroupControl1.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "RETOUR_VENTE_Invoice_Code").ToString & " " & ": تفاصيل الفاتورة رقم"
       'FrmRetourFactureVente.TextBox2.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Code").ToString
       'FrmRetourFactureVente.TextBox3.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Type").ToString
       'FrmRetourFactureVente.TextBox4.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Date").ToString
       'FrmRetourFactureVente.TextBox5.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Customers_Name").ToString
       'FrmRetourFactureVente.TextBox6.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Total").ToString
       'FrmRetourFactureVente.TextBox7.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Total_Arabic").ToString
       'Global_Fill_GridView_GridControl(FrmRetourFactureVente.GridControl2, "SELECT * From TBL_INVOICES_VENTE_DETAILS Where INVOICES_VENTE_DETAILS_Code = '" & GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Code").ToString & "'")
       'End If
       'Next rowHandle

       FrmRetourFactureVente.GridControl1.DataSource = Nothing
       FrmRetourFactureVente.GridControl2.DataSource = Nothing
       Dim DT As New DataTable
       Dim DA As New OleDb.OleDbDataAdapter("SELECT * From TBL_RETOUR_VENTE Where RETOUR_VENTE_Invoice_Code = '" & Me.TextBox1.Text & "' ", Conne_2020)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("يرجى التحقق من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Else
           Dim DR = DT.Rows(0)
           FrmRetourFactureVente.TextBox2.Text = DR!RETOUR_VENTE_Invoice_Code
           FrmRetourFactureVente.TextBox3.Text = DR!RETOUR_VENTE_Invoice_Type
           FrmRetourFactureVente.TextBox4.Text = DR!RETOUR_VENTE_Invoice_Date
           FrmRetourFactureVente.TextBox5.Text = DR!RETOUR_VENTE_Customers_Name
           FrmRetourFactureVente.TextBox6.Text = DR!RETOUR_VENTE_Total
           FrmRetourFactureVente.TextBox7.Text = DR!RETOUR_VENTE_Arabic
           FrmRetourFactureVente.TextBox1.Text = DR!RETOUR_VENTE_Users

           Global_Fill_GridView_GridControl(FrmRetourFactureVente.GridControl2, "SELECT * From TBL_INVOICES_VENTE_DETAILS Where INVOICES_VENTE_DETAILS_Code = '" & FrmRetourFactureVente.TextBox2.Text & "'")

           Me.Close()
       End If

   End Sub

زادك الله من علمه و فضله و أكرمك بالدارين إن شاء الله
صدقني أخي و الله أعلم بذلك
لماذا أردت فكرة تحويل الكود بمشاركتي الأولى
فقط للتعلم واستغلاله فيما بعد في ملء جريد كنترول الفاتورة سواء المبيعات أو المشتريات عن طريق الباركود
كهذا الكود مثلا الذي يتطلب إدخال سجلات للجريد كنترول حسب خلايا معينة ..

كود :
   Private Sub TxtInvoicesAchatBarCode_Leave(sender As Object, e As EventArgs) Handles TxtInvoicesAchatBarCode.Leave
       Dim Bar_Items As Integer
       If Me.TxtInvoicesAchatBarCode.Text <> Nothing Then
           Dim DT As New DataTable
           Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TBL_ITEMS Where ITEMS_Barcode Like '" & Me.TxtInvoicesAchatBarCode.Text & "'", Conne_2019)
           DA.Fill(DT)
           If DT.Rows.Count > 0 Then
               ' التحقق من رقم كود الصنف
               For I = 0 To DataGridView1.Rows.Count - 1
                   If DataGridView1.Rows(I).Cells(1).Value = DT.Rows(0).Item("ITEMS_Code") Then
                       DataGridView1.Rows(I).Cells(5).Value = DataGridView1.Rows(I).Cells(5).Value + 1
                       Calculateur_Divers_Operations()
                       Me.TxtInvoicesAchatBarCode.ResetText()
                       Exit Sub
                   End If
               Next
               'اضافة سجل للداتا جريد
               DataGridView1.Rows.Add()
               Bar_Items = DataGridView1.Rows.Count - 1
               DataGridView1(1, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Code")
               DataGridView1(2, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Name")
               DataGridView1(3, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Unite")
               DataGridView1(4, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Prix_Vente")
               DataGridView1(8, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Stock")
               DataGridView1(5, Bar_Items).Value = 1
               Calculateur_Divers_Operations()
           End If
       End If
       Me.TxtInvoicesAchatBarCode.ResetText()
       Calculateur_Divers_Operations()
   End Sub
بكل صدق .. مع أدوات الديف إكسبرس تقريبا معظم الأمور تسير معي بشكل جد عادي إلا .. الجريد كنترول و التعامل معها
تحياتي واحتراماتي و تقييماتي