تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في إيجاد حل كود للجريدفيو مرفق مثال
#1
الأخوة الافاضل في منتدى فيجول بيسك لكل العرب
أرجو المساعدة

السلام عليكم

مرفق لكم جزء من المشروع الخاص ارجو مساعدتي في كيفيه استخدام الـ DataGrid 
من خلال إضافة الاكواد المطلوبة في الصورة المرفقة على المشروع


مع أطيب تحياتي


الملفات المرفقة صورة/صور
   

.rar   WindowsApp27.rar (الحجم : 62.27 ك ب / التحميلات : 30)
الرد
تم الشكر بواسطة:
#2
PHP كود :
       For r As Integer 1 To 100
            d
.Rows.Add(r.ToString)
 
       Next
        Dim i 
As Integer 0
        For r 
As Integer 0 To d.Rows.Count 1
            i 
+= Val(d.Rows(r).Cells(0).Value)
 
       Next
        d
.Rows.Add("Total: " i.ToString
الرد
تم الشكر بواسطة: السيد الجوهري , بيسك لكل العرب
#3
اخي سعود بارك الله فيك وجزاك الله الف خير ولكن الكود يعطي معي خطاء ياريت تطبيقه علي كل الاعمدة في المتال المرفق في حالة عرض الفورم وفي حالة البحث بين تارخين واسف علي تعبك وربي يجازيك كل الخير
الرد
تم الشكر بواسطة:
#4
هذا  الكلاس فوورم  بالكامل   أنسخ والصق فقط 

كود :
Imports System.Data.OleDb
Public Class Form1
   Dim ConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\db.accdb"
   Dim Conn As New OleDbConnection(ConStr)
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dt.Clear()
       da = New OleDbDataAdapter("Select * from AAA", Conn)
       da.Fill(dt)
       DataGridView1.DataSource = dt
        DataGridView1.Columns(0).Visible = False


        Compute(DataGridView1)
    End Sub

    Private Sub B2DatesFind_Btn_Click(sender As Object, e As EventArgs) Handles B2DatesFind_Btn.Click
        Dim dtp1 As Date = DateTimePicker_from.Value
        Dim dtp2 As Date = DateTimePicker_to.Value
        dt.Clear()
        da = New OleDbDataAdapter("Select * from AAA where Date >= #" & dtp1.Year & "/" & dtp1.Month & "/" & dtp1.Day & "# and Date <= #" & dtp2.Year & "/" & dtp2.Month & "/" & dtp2.Day & "# order by Date ", Conn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
        Conn.Close()

        TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(2).Value)).Sum()
    End Sub






    Private Sub Compute(ByVal Dgv As DataGridView)

        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Value = "Total Is "
        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Style.BackColor = Color.Black
        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Style.ForeColor = Color.Gold

        Dim rw1 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(2).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(2).Value = rw1.Sum(Function(x As DataGridViewRow) x.Cells(2).Value)


        Dim rw2 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(3).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(3).Value = rw2.Sum(Function(x As DataGridViewRow) x.Cells(3).Value)


        Dim rw3 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(4).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(4).Value = rw3.Sum(Function(x As DataGridViewRow) x.Cells(4).Value)

    End Sub

End Class
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد
تم الشكر بواسطة: بيسك لكل العرب
#5
(05-03-18, 11:46 AM)Abu Ehab كتب : هذا  الكلاس فوورم  بالكامل   أنسخ والصق فقط 

كود :
Imports System.Data.OleDb
Public Class Form1
   Dim ConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\db.accdb"
   Dim Conn As New OleDbConnection(ConStr)
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dt.Clear()
       da = New OleDbDataAdapter("Select * from AAA", Conn)
       da.Fill(dt)
       DataGridView1.DataSource = dt
        DataGridView1.Columns(0).Visible = False


        Compute(DataGridView1)
    End Sub

    Private Sub B2DatesFind_Btn_Click(sender As Object, e As EventArgs) Handles B2DatesFind_Btn.Click
        Dim dtp1 As Date = DateTimePicker_from.Value
        Dim dtp2 As Date = DateTimePicker_to.Value
        dt.Clear()
        da = New OleDbDataAdapter("Select * from AAA where Date >= #" & dtp1.Year & "/" & dtp1.Month & "/" & dtp1.Day & "# and Date <= #" & dtp2.Year & "/" & dtp2.Month & "/" & dtp2.Day & "# order by Date ", Conn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
        Conn.Close()

        TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(2).Value)).Sum()
    End Sub






    Private Sub Compute(ByVal Dgv As DataGridView)

        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Value = "Total Is "
        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Style.BackColor = Color.Black
        Dgv.Rows(Dgv.Rows.Count - 1).Cells(1).Style.ForeColor = Color.Gold

        Dim rw1 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(2).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(2).Value = rw1.Sum(Function(x As DataGridViewRow) x.Cells(2).Value)


        Dim rw2 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(3).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(3).Value = rw2.Sum(Function(x As DataGridViewRow) x.Cells(3).Value)


        Dim rw3 = From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow.Cells(4).FormattedValue <> String.Empty
                  Select theRow


        Dgv.Rows(Dgv.Rows.Count - 1).Cells(4).Value = rw3.Sum(Function(x As DataGridViewRow) x.Cells(4).Value)

    End Sub

End Class

السلام عليكم 
مشكور أخي ابو ايهاب وجزاك الله الف خير كود الجمع شغال تمام  بس ممكن تطويره
ليشمل جميع الاعمدة الموجودة حتي لا يتم تكرار الكود لان يوجد لدي عدة أعمدة 

ولك من جزيل الشكر والعرفان

PHP كود :
Dim rw1 From theRow As DataGridViewRow In Dgv.Rows
                  Where theRow
.Cells(2).FormattedValue <> String.Empty
 
                 Select theRow

        Dgv
.Rows(Dgv.Rows.Count 1).Cells(2).Value rw1.Sum(Function(As DataGridViewRowx.Cells(2).Value
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مطلوب مثال او مشروع لطباعة ملصقات الباركودوتحديد عدد الملصقات ahmedramzyaish 3 677 منذ 11 دقيقة مضت
آخر رد: Bibo2030
  ارجو المساعدة في عرض البيانات على التاتا جرد فيو moahmed.abdelmohsen 1 225 15-03-21, 09:38 PM
آخر رد: moahmed.abdelmohsen
  من فضلكم استعلم هنا ازاى مرفق مثال محمد فوزى محمد 2 171 12-03-21, 08:29 AM
آخر رد: محمد فوزى محمد
  [سؤال] عندي اسئله بسيطه وارفقت مثال لشرح المشكلات حسن الجلب 2 160 10-03-21, 10:21 PM
آخر رد: حسن الجلب
  المساعدة في انشاء شريط تحميل progress bar MustafaShaker 1 500 08-03-21, 04:14 PM
آخر رد: alsouf
  مثال عن progressbar مع BackgroundWorker1 atefkhalf2004 2 200 13-02-21, 09:34 PM
آخر رد: atefkhalf2004
  المساعدة - بكود زر البحث وخانة رقم التسجيل crazykinko 0 183 18-01-21, 04:52 PM
آخر رد: crazykinko
  قمت بعمل مثال لإستخراج النصوص من الصورة واجهتني مشكلة اللغة العربية ماهو الحل mohamedgadain61 1 324 17-01-21, 07:54 AM
آخر رد: ابراهيم ايبو
  مثال لاستخراج السريال remonmary 0 186 15-01-21, 11:22 PM
آخر رد: remonmary
Lightbulb [VB.NET] أرجو المساعدة اخواني nssow 1 219 12-01-21, 10:23 PM
آخر رد: moosa_alabri

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


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