تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إظهار العمود الأوّل على أداة الجريد كنترول عبد العزيز البسكري 3 239 17-03-20, 09:56 PM
آخر رد: محمد كريّم
  [ تمّ الحل ] : تصدير بيانات الجريد كنترول إلى الإكسل عبد العزيز البسكري 5 565 04-03-20, 07:29 PM
آخر رد: khodor1985
  تفعيل الخاصّية : Scroll بالجريد كنترول عبد العزيز البسكري 3 326 06-01-20, 12:50 PM
آخر رد: عبد العزيز البسكري
  مجموع عمود بالجريد كنترول عبد العزيز البسكري 4 408 18-12-19, 11:22 AM
آخر رد: عبد العزيز البسكري
Video [درس فيديو] الدرس 63 (كيفية اظهار او قرائة بيانات سجلات الــGrid View الفرعيه بــControls اخري) Atef Bidier 2 1,214 29-11-17, 09:15 PM
آخر رد: محبه البرمجه
Video [درس فيديو] الدرس 62 (كيفية اظهار او قرائة بيانات سجلات الــGrid Control بــControls اخري) Atef Bidier 3 976 24-02-17, 09:58 PM
آخر رد: Atef Bidier
Video [درس فيديو] الدرس 58 (كيفية استعراض سجلات جدولين (Master - Details) بالـGrid Control الجزء الثاني Atef Bidier 1 847 21-02-17, 01:59 PM
آخر رد: thevirus
Video [درس فيديو] الدرس 59 (كيفية تغيير شكل سجلات الجريد الفرعيه لـCardView و طباعتها بالـGrid Control) Atef Bidier 0 708 20-02-17, 02:44 AM
آخر رد: Atef Bidier
Video [درس فيديو] الدرس 57 (كيفية استعراض سجلات جدولين (Master - Details) بالـGrid Control الجزء الاول) Atef Bidier 1 669 17-02-17, 11:11 PM
آخر رد: EnormousSoft
Video [درس فيديو] الدرس 55 (كيفية استعراض السجلات بالجريد كنترول بأكثر من شكل ) Atef Bidier 0 730 09-02-17, 03:16 AM
آخر رد: Atef Bidier

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


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