تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إستعراض سجلات على أداة الجريد كنترول
#1
السّلام عليكم و رحمة الله و بركاته
أساتذتي الأفاضل .. لو ممكن المساعدة بتحويل هذه الجزئية إلى تقنية الديف إكسبرس
تابعت الكثير من الشروحات لكن أغلبها بالسي شارب و لم تفِ بالغرض
كود :
         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

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

كود :
   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
بكل صدق .. مع أدوات الديف إكسبرس تقريبا معظم الأمور تسير معي بشكل جد عادي إلا .. الجريد كنترول و التعامل معها
تحياتي واحتراماتي و تقييماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [درس فيديو] الدرس 49 (كيفة جعل الجريد Read Only لمنع التعديل في البيانات) Atef Bidier 1 1,924 20-02-24, 01:20 AM
آخر رد: loay775
  [سؤال] كيفيه اضافه صف جديد الي الجريد كنترول منه 5 2,551 25-04-22, 07:04 AM
آخر رد: asemshahen5
  قريد كنترول محمد بن عطية 3 1,711 13-01-21, 08:26 PM
آخر رد: عبد العزيز البسكري
  تحويل كود من جريد فيو الى جريد كنترول العيدروس 2 1,581 15-12-20, 11:13 PM
آخر رد: العيدروس
  [سؤال] كود اضافة صف في القريد كنترول m4n2net2000 2 5,683 26-08-20, 02:41 PM
آخر رد: m4n2net2000
  تفعيل الخاصّية : Scroll بالجريد كنترول عبد العزيز البسكري 5 2,528 23-07-20, 11:05 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : إظهار العمود الأوّل على أداة الجريد كنترول عبد العزيز البسكري 3 2,043 17-03-20, 09:56 PM
آخر رد: محمد كريّم
  [ تمّ الحل ] : تصدير بيانات الجريد كنترول إلى الإكسل عبد العزيز البسكري 5 2,821 04-03-20, 07:29 PM
آخر رد: khodor1985
  مجموع عمود بالجريد كنترول عبد العزيز البسكري 4 2,467 18-12-19, 11:22 AM
آخر رد: عبد العزيز البسكري
Video [درس فيديو] الدرس 63 (كيفية اظهار او قرائة بيانات سجلات الــGrid View الفرعيه بــControls اخري) Atef Bidier 2 2,744 29-11-17, 09:15 PM
آخر رد: محبه البرمجه

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


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